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needs to bo extracted., translated, sorted and so on. That 
me fins, in some way, the computer understands what the natural 
language data means, in the same way as man does. Man arrives 
at the content of the natural language text by cheeking against 
what he already kno?/s about the text under consideration, 
v/hercas, a computer has to resort to previously stored 
information (a dictionary of basic words) for processing 
the natural language text data. A natural language data 
processor provides an organised dictionary of basic v/ords 
and an elaborate grammatical analysis using codings, 
functional units etc., wMch aid the computer in processing 
the contents of the input text for various applications. 

One such application mentioned below, is the main interest 
of this report. The high speed, the high reliability, the 
capability of performing logical operation, the capability 
of handling huge bulks of data, the adaptability to a wide 
vatiation of data etc. make am automatic computer, useful 
for various applications in the field of natural language 
data processing, 

1.2 AI7 APPIICAIIOI'T 01 MAl'URAl lAlTGUA&S DATA PZOCESSIMG 

1 he field of application of natural language data 

2 '5 2 

processing is a vast one P.l. Garvin points out that 

natural language data processing serves two purposes, 

(i) a linguistic analysis, to obtain analytic linguistic 
results, (ii) information handling, wherein the validity 
of the analytic linguistic results can be tested , Language 



data processing for information handling includes two 
fields, (a) machine translation from one language to' 
another, (h) infonnation storage and retrieval, automatic 
abstracting, indexing and classification of documents, 
question answering, anal^^is of writing styles, all of 
which can be grouped as content processing, This report 
deals with a slightly different application in the field 
of content processing viz. guessing responses to program- 
med instruction texts. A preliminary processing of the 
programmed text data provides a grammatical coding to the 
words in the text. , A further analj^sis on the coded text, 
provides the clue for obtaining the desired response. 

The programmed instruction text considered, for 
our purposes, is a text of fexv sentences, each conveying 
a meaning. At the end of the text, a sentence with a 
blank entry occurs. We call this the "question sentence". 
After obtaining the grammatical coding for the "question 
sentence", a frame of words is selected from it according 
to their grammatical coding. We call this the "test frame" - 
The "test frame" is used to pick from the text, appropriate 
sentences wliich are likely to contain the desired response 
to the question sentence. Depending on the grammatical 
coding of the blarlc entry in the "question sentence", a 
suitable analysis is carried out to pick the correct 
response from the selected sentences. 



Chapter II describes the approach used with the 
help of a overall bloclc diagram. 

Chapter III describes the various routines with 
the help of flow charts. 

Chapter IV concludes the report with fev/ remarks 
on the results obtained. 



CHAPIER II 


Ai'I APPROACH 10 PROGRiffiEIED TSZI PE0GES3IRG 


2.1 DSSCRIPTICI OP IHE SCPEME 

Ihe main aim lias been to develop a scheme by which 
a computen guesses the desired response to programmed texts 
using only the grammatioal analysis. The approach to pro- 
grammed text processing, is explained with the help of an 
overall block diagram given in Eigure 2,1. 

2.1.1 Input Phase 

As an input to the programmed text processor, a 
programmed instruction manual for teaching programming 
techniques to beginners is considered . The text has to 
be read and scanned charact erwise to separate it into 
sentences. Each sentence, then, has to be stored wordwise 
for analysis. This constitutes the fiist stags of the scheme, 
indicated by the first block in Figure 2,1. 

2.1.2 Preliminary Grammatical Analjrsis 

Just as a beginner must kno\7 some basic Y/ords for 
understanding' the manual under discussion, so also, a 
computer requires the development of an organised dictionary 
of words. And such a dictionary is built by conducting "a 
frequency of occurrence of words" analysis on texts. The 
response enabled us to arrive at a 1000 /word dictionary 
which best suits orx’ text processing. By introducir_g 
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grammatical informations to each entry in the dictionary, 
additional restriction is placed on the shnple word by r/ord 
match procedure, which is used to obtain the desired computer 
response to programmed texts. The grammatical codes assigned 
to a dictionary entry indicate its position in different 
sentence structures. The positions occupied by the attributes, 
prepositions, verb qualifiers, adjective and adverb qualifiers 
etc. are classified as "functional units of the sentence", 
for example, some functional units arc given below. 

funct i onal unit Example 

A (attribute) a, an, the, that etc. 

B (verb qualifiers) would, be, may etc, 

f (prepositions) from, on, in etc. 

The other word positions in a sentence are classified as 
"form class units". These positions include nouns, verbs, 
adverbs and adjectives. Foi* example, 

form class Unit Example 

1 (nouns & pronouns) book, John, that etc. 

2 (verbs) is, was, be, were etc. 

3 (adjectives) good, bad etc. 

4 (advrbs) aY/ay, around etc. 

The coding of each entry in the dictionary is filled with 
the help of a conventional dictionary. Since the same ?;ord 
is likely to take different positions in different sentences, 
multiple coding (a combination of the above codirjg units) is 
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provided for sorae dictionary entries, Por example^ the word 
'THAT' can appear either as a pronoun or as an attribute and . 
hence, given the code 'A1 ‘ in the dictionary. 

A look at the nature of the text revealed that seme 
v/ords do not occur as basic T/ords, but as compound words 
with prefixes and suffixes, 'The natural tendency is to 
include such prefixed and suffixed words also in the 
dictionary and this will make the dictionary not a limited 
class one, as we intended it to be. By limited class 
dictionary, we mean the one with basic words only. The 
approach adopted to talne care of the compound ?/ords in texts 
is to perform preliminary prefix and suffix tests, on the 
words. These tests remove the prefix and suffice of a word, 
identify them v/ith standard prefi^ces and suffixes, and then 
attempt to search for the root of the word in the dictionary. 

As the occurence of prefixed words is not very 
common in texts and also as the prefixes do not carry any 
meaning in the grammatical sense, only a suffix analysis of 
words is considered^. To distinguish a compound word from 
a basic word, one has to determine the actual suffix present 
in the compound word. This necessitates,' a systematic suffix 
analysis, using commonly occuring suffixes or standard suffixes. 
The suffixes having the same length (in terms of characters) 
are grouped together to simplify the analysis. Each group 
is tried in order to determine the actual suffix of the 
given word. We know that a compound word or a derived word, 



deri-veg its grammar category from its suffix. For example, 
a basic \70rd which might be a noun, v/ill become a rerb or 
an adverb or an adjective depending on the suffix y/ith which 
it is used. So b3r assigning a grammatical code (s) to each 
of the standard suffixes, the grammatical coding of the 
compound word can be determined, provided its suffix has 
already been identified vYith one of the standard suffixes. 

Hovrever, a suffix may not provide a unique grammar 
assignment to the compound word. A dictionary look up of the 
basic vrord from vmich the compound v/ord is derived, resolves 
this difficult 3’-, I' his requires, that the basic v^ord or root 
of the compound word must be determined first. Depending 
upon the suffix, a basic word gets altered to form the 
derived vrard. So a mere separcction of the suffix from the 
derived yrard, majr not give its basic word. One needs to do 
addition or deletion of characters to or from the root 
obtained after the suffix lias been removed from the derived 
v/ord. Since, different suffixes demand different operations 
to be done on the root, each suffix must have in addition to 
the grammar code, an action code also to specify the operation. 

The action codes are numbered from 1 to 8. Ihe codes 
and the action specified by each on the root of the given 
vYord are given belov/. 

Code humber Action 

1 


2 


no action 

Add ’E* to the root 



Code Humber 

3 

4 

5 

6 

7 

8 


Action 

Add ’Y* to the root 

Delete last charactei- from 
the root 

Delete last character and 
add ’E' to the root 

Delete last character and 
add ‘Y’ to the root 

Add 'ITY* to the root 

Add 'P' to the root 


Since some suffixes may demand more than one opera- 
tion, they are provided n’itii a combination of the above 
action codes, Stillj for some suffixes, which do not fall 
in the general categoiy described above, it is necessary to 
do a special analj'’’Sis, 

Once the basic v/ord is obtained using the action 
codes! of the suffix identified, one has to determine the 
grammatical coding of the basic word by a dictionary look- 
up, This dictionaiy lookup provides a grammatical coding 
only if the basic word matches an entry in the dictionary. 

To obtain a unique code assignment for the compound word 
under discussion, the intersection of the- t?/o codings » 
one provided by its suffix (a multiple code assigruaent ) , 
and the other provided by its root from a dictionary look- 
up, is selected. This intersection, in most cases provides 
a unique code assignment. The above analysis, termed as the 



proliminary gramnatioal analysis, is indicated by tiae blocks 
2 and 3 in Figure 2.1 . The dotted line from block 3 to 
block 2 refers to the dictionary search required by the 
suffix test. 

2.1.3 Detailed G-ranirnatical Analysis 

A preliminary griasmatical analysis may not be able to 
assign any grammatical coding to some words or it may assign, 
still, muluiple coding to seme v;ords . Tliis difficulty is 
overcome, by providing a grammatical processor (block 4 
in Figure 2.1). With the help of the functional units, 
assigned to some words in the input sentence, it guesses 
the possible grammar code of the words, for which no assign- 
ment has been made previously. By making a second scan of 
the sentence and by making use of the uniquely assigned 
grammar codes of some words in the sentence, the grammatical 
processor tries to eliminate multiple coding assignments. 
Since the grammatical processor works only on a heuristic 
notion, multipi.e coding assigned to some v/ords may still 
remain unresolved. 

2.1.4 Programmed Text Processing 

The grammatical coded text, now, needs to be analysed 
to guess the desired response to the sentence with a blank 
entry (termed as ’’question sentence”), which occurs at the 
end of the programmed text. The grammatical coding of the 
question sentence helps to pick out a frame of 'words, having 
specific grammatical units assigned to them (termed as 
"test frame”). The test frame is then matched word by word 
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v/ith the words of the sontoncGS in the text. This matching 
picks out a scntenco, which is most likely to give the desired 
response. Using tlie gi’ammatical coding of the selected 
sentence, its words are grouped, if they fall within a specific 
grammar frame. These frames arc called group frames of the 
Sentence" . A similar group frame for the blank entry is also 
determined. Depending on the grammatical unit, guessed at the 
blanle entry, these group frames provide separate analysis to 
choose the appropriate word in the selected sentence, (words 
not present in the test frame) as the desired response* This 
pi'ogramracd text analysis is shown by block 5 in Digu-rc 2*1. 

2,1,5 Output Phase, 

The final stage of the scheme (block 6 in PigurG-2.1) 
is printing the computer response to the question sentence in 
the programmed text. 

The comploto block diagram has given us an overview 
of the flow of the input text through the various stages 
of the scheme described above and forms an introduction to 
the detailed description of the program given in tho next 
chapter. 

2.2 lAhGUAGE USED AND COPD ORGADISATIOU 

The complete program, . which implements the schemo 
on IBM 7044 in IIT/Kanpur, is written in EORTSAdl IT. Some 
aspects of the program, such as^ bit manipulation for 
shifting the contents of a register or for packing 
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information from other registers into a vTord etc, , could have 
been easily acliiovod, if the assembly language of IBfu 7044, 
i.lAP, had been used for semo subroutines. Howeverj in order 
to have a machine independent program 'dcvelopod, the main ■ 
program and all its subroutines have been written in FORlEAff 
IV, Some system features of IM 7044 like PIIE 99 , used for 
format con-version, could alv/ays be dispensed with, by writing 
one’s own routines, ho usage of backups like discs, tapes, 
etc., is made as they tend to increase the overall execution 
time * 

IBM 7044 computer has a total core memory of 
77K (octal). System, including IOCS, occupies a core of 
12,3k (octal). Input and output buffers take 1 ,5K (octal), 

Iho core occupied by the object program, which includes a 
main routine, 10 subroutines, and system supplied routines 
is 52 , 3 k (octal). The progi'am's dictionary and suffixes, 
given as data, arc provided a dimension of 9,1k (decimal). 
Only 4.1k (dcGimal)arc in present use, the rest being 
provided for extending tho dictionary and suffix with 
additional information. Iho grammar codes of a dictionary 
entry are packed in a single word, one for each byte of the 
word. Ihc 6 bytes in a word provide for six codes -for each 
dictionar 3 '- entry. A total of 64 different codes are possible, 
of which, only I 4 different codes are in use . Codes are 
stored in b 3 Atcs to simplify format conversion and other 
manipulations. 



GI-IAJT3R III 


DESaEI]?IIOF OP PHOGHAEvI ROUIIIISS 


In tills chapter, v/e shall describe the individual 
x’outines throu^;li which the programmed tes:t data undergoes 
grammatical analysis and processing before arriving at the 
guessed response for the question sentence in the text. 

The description of the routines is given v^^ith the help of 
individual flow charts. The description, throughout this 
chapter, assumes thut the user is ?/ell aware of the gramma- 
tical units and the scheme for a detailed grammatical 
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analysis of the input text data, Hov/ever, the description 
includes the routines for the preliminary granmiatical 
analysis, which simplifies the task of the gramrnatioal 
analyser, Sefore going into the individual routines, an 
overall flow chart for the programmed text processing is 
explained below, 

3.1 COIIPIBTE Plow GHiffiT POE PRQGRAIvPiSD TEXT DATA PROCESSniC- 
The flow chart given in Pigure 3.1 shows the order 
in which the various routines are executed, in processing 
the text data. 

The program reads the text data till a question 
sentoncG, with one of the words as a blanlc entry, is 
present in the input . Routine II'IPUT enables the reading 
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^ STiiEO} 


— ^ He cLQ u Qj^ b 

^ ^*CAI,I IITPUI 


End ■'"■ 
of testg/ 


STOP 


Que otion^ 
? / 


I CALL LOOKUPCl'T) 

, ^ .~ 

i c;j£L supii(iO 


gham;j:ioa 

i'dlibLYSSH , 


->i CALI ;j)D 


-> G..LL HEPIu'P! 


I GilLL i 

Ssleot a scntcuce tliat 
matches test grama. 

(Sontence analysed grammati- 
sally proTiously) 


Analyse it granrniaticalM" 


Select v/ords that 
represent the 
response and print the 
response 


represents the oall to -an internal routine. 


COMPIHPE PLOW OlU^m POE PHOCTpjmiEI) TEXT PROCESS lEG 





of the te^ct. As the words of an input sentence are read 


t-6 

in, they are also searched for a dictionar3;' match, through 
LOOKUP routine, in an attempt to assign a grammar cod9(s) 
to them. The presence of the question sentence (it is the 
last sentence in the text) calls a SUPIK routine, to assign 
grammatical codes to the compound words (words with suffixes) 
in the question sentence. Words, that hare multiple grammar 
codes or no grammar codes are evaluated "by calling the 

jr 

GiLA.ai.IiiiriC!AL AihlLiSLH routines^. Ihe coded question sentence, 
then, picks out from the text, a sentence which is likely to 
contain tne desired response. The selected sentence also goes 
uhrough the lOOICJP, SUI’IZ and G-RAIvIiilA'l’IGAL AITALYdSH routines, 
like the question sentence, and gets the gramiuatical codes 
assigned, A call to PICKUP routine, fixes the group frame of 
the selected sentence, ?/hich is further analysed to pick the 
desired response. Pinalljr the response is printed. After all 
pointers are initialised, the .program goes to process 
another text input to guess the response to its question 
sentence. The presence of ns the first input word 

of a sentence, terminates the processor program. 

An overview/ of the dictionary and suffix 
organisation and an alphabetised list of variables used 
in the routines, given in the following tliree sections 
completes the formal introduction before the description 
of routines is presented. 



3.2 DICTIOIiiRI OP.GmSATIOlT 

The dictionary is the main source with which the 
program analyses the input text at two states,- (i) its 
primary fomi as soon as the text words are -read in, 

(ii) after the text words undergo a suffix analysis, in an 
attempt to fix the grammatical units of the text T/oi'ds* It 
is a 1000 word dictionarjr built with v/ords of comraon 
occurence in elernentar;/ SngLis h texts . It also includes 
some v/ords picked from the programmed text^ under consi- 
deration. A "frequency of occurences" analysis of the 
common words, in the text under consideration, has enabled 
the entry of the v/ords presently used in the dictionary. 
Some more entries for the dictionary are also collected by 
running the text against the preliminary dictionary develop 
ed above and then updating it vdth words that leave not 
found an entry previously on the basis of frequency analysi 
Each entry in the dictionary is provided v/itli 6 computer 
words, the first three for storing the word itself, the 
fourth for the grammatice..! code and fifth and sixth unused 
(can be used if additional information is to be stored for 
later processing). The dictionary lookup and retrieval of 
entries or updating the diotionaiy are simplified by the 
alphabetised arrangement of entries. A card at the begin- 
ning gi-ves the count of the number of entries begiming in 
each of the 26 alphabetic letters. To locate a given word 
in the dictionary, a look at tlie count for the alphabet v/it 
which the v/ord begins, pinpoints the area of scan in the 



dictionaiy. Since there are only few entries in this area 
of scan, only few comparisons are needed to get a match 
for the given word. Similarly an altering of the count for 
an alphabet, enables introduction of cards with additional 
entries beginning vdth that alphabet. Multiple codes to 
dictionary entries are packed in a single word to save core 
space. Appendioc 0 gives the dictionary organisation, 

3.3 SUl'B'IkSS AMD IHlilH iiOTIQh GCOBS 

Appendim B provides the suffixes used and theix' 
action codes. Ihere are totally 52 suffixes employed .Since 
the number of characters in Conh are different, to provide 
a systematic suffix test, the suffixes are arranged in the 
descending order of the nuraber of characters in them, 
starting from suffixes of 6 characters to those of single 
character* Each entry in the SUEIXI array, used for storing 
the suffixes, is provided with two computer words. Ihe 
first word stores the suffix. Ihe second word is partitioned 
into t?ro portions, the left tv/o bytes (12 bits) are used for 
the grammar code and the right 4 bytes (24 bits) are used 
for action codes. A suitable mask vrord is used to pick the 
two codes separately. Each sxrffix is provided with one or 
more of the 14 grammar codes and one or more of- the 8 action 
codes, each code specifying a suitable operation such as 
deletion or addition of characters to the HOOT of the word 
after the suffix is removed. 
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For exanple , 

1. Por suffix 'III&S file SUI'IKI fable confains 
’IlTGrbbb' in fhe firsf word and '12bbb1’ in fhe 
second word. When a word whose suffix rnafches 'lilG', 
occurs in fhe inpuf scnfence, if is imraediafely assigned 
fhe graninar code of 'Porn class 1 or 2' (leff 2 byfes 
of second word) , Prom fhe last 4 byfes, fhe acfion 
specified is ‘code 1', which means 'no acfion' on fhe 
roof of fhe given word, obfained affor removing ifs 
suffix 

2. Por suffix 'EP' , file enfries are 'E'Pbbbb' and '23bb41'. 
fhe 7/ord with suffix 'ED' is assigned a code '23'. The 
acfion codes are '4' and '1'. Acfion code '1' specifies 
'no acfion', i.e., fhe roof of fhe word is fo be 

searched for a inafcli in fhe dictionary. ;If fhe 
search fails, acfion code '4' is fried which specifies 
'delefe lasf characfer from fhe roof' and then affempt 
dicf ionary lookup. 

Prom fhe above fwo examples, if is evident fhaf fhe acfion 
codes are provided only for suffixes wifh mulfiple grammar 
code assignmenf, so fhaf fhe acfion codes help in resolving 
fhe mulfiple assignmenf fo unique assignmenf. 

3.4 PORTRAP VARIAJ3IES AilD THEIR fEAl-TIHG 

A beforehand lisf of imporfanf PORTRAH variables 
used and their functions, given below, lessens fhe task 
of describing the routines and the dra^?ing of the flow ■ 



charts' and also gives the user a better understeiiiding 

of the procedures discussed. 

AIjEE 1!IS(26,2) Array fox* storing the alphabets in the first 
\'7ord and the count of number of cards that 
contain the entries beginning with that 
alphabet in the second word. By this, 
introducing of new words become easy, 

Bor example, if a word ’ PROBABILITY^ is to be 
introduced in the dictionaiy, add a card with 
this word just after the last word in the 
alphabet 'P* group and increase the count 
ALBBTS(16,2) by 1 . Later the second word for 
each alphabet is altered into ontrj?' pointer in 
the dictionarj'- at which the alphabet starts, ■ 
With this type of organisation, the bouirlary 
limits of scan for a wax'd in the dictionary 
is accurately determined. Bor example, for a 
word ’STIIDLhT’, the area of scan is given by 
AL3ET3(19,2) to ALBETS(2G,2)-1 , 19 being the 
row number for alphabet '.o' and 20, the row 
number for alphabet 'T', 

ARRAY (10, 2) Stores tlie demarking pointers of each sen- 

tence in SEjiEOH by using the values of IPlECOR 
at the beginning and at the end of each 
sentence as it is read in. Assumes a maximum 
of 10 sentences pox text. 



BE&1T(5) 


CHECK(10) 


CIiK 


CHRCliT 


Stores the word next to entry in the 
question sentence. This information is useful 
for analysis 'when the possible grammar code of 
cntrj'- is *Pona class ^ ' , 

Stores the grammar code of the frame of h?ords 
in the group in which is a member. ¥e call 
this ^’the group frame" of the ' 7 ^' entry. Assumes 
that each group frame does not have more than 
10 words. 

Stores the col 1 of the input data card. If it^ 
is a another data card is read, taking 

the previous one as a comment card. 

Character count for an input word. 

GHEGIJT .G-T .1 8 prints an error message but 
proceeds processing ignoring the excess 
characters till a blank or comma is present 
ill the input. 


I)CT]ffiY(lOOO,4) Array for storing tho 1000 word dictionary. 

The dictionary organisation has been dealt 
in detail above. 

DOLIjAPl Stores the character '$$|bbb' . An input 

sentence v/ith the first word as '$$$*, is 
used to terminate the program for end of all 
input texts. 

EHDIEG Stores the suffix of certain length (number of 

characters) that has been removed from the 
current word. 



22 


FiUl';IB(20,4) 


GE01IPL(25,2) 


lOOUlT 


IB1£P(9) 


Stores tlic ”test frejne" v/hich consists ojf 
vrards and their codes collected by scanaing 
10 \7ords on either side of entry (those 
with a g'rammar code of 'form class 1' or 
'IPoriii class 2* or ’I'orni class 3% are chosen). 
Stores the lower and the upper limits of 
the group frames in a sentence. A ’’group frame" 
in a sentence is a group formed a fjoame 
of words in, which the first -word has a code of 
'unit A' or 'Unit B' , or 'unit I” and the last 
word has a code of 'form class 1' or 'form 
class 2' or 'form class 1' rospectively . Assumes 
a maximum of 25 groups for each sentence. 

Pointer to the number of entries in V/OPJ), A 
•value greater than 51 prints an error message 
and stops processing. 

A single dimensioned array of nine words 
that contain the characters, '3'^ ’f ^ ' ITY* , 
'p', 'IDf', 'OB'', 'IE', 'lA' .''Any one or 
more than one of those cnaracters need to be 
added to the ROOT of the Yford (after its 
original suffix has beon removed) before a 
dictionary loolmp is effected. This array 
is mainly of use in SUfIZ test. 



IBP 


ISSCOR 


IV A IDS 


ISBI 

K2 

Kl^P 


IIM 


LIBE(65) 


IIK 


IOC 


Stores tlie special character ^ to be used 
in the blank space of the question sentence, 
linear pointer that scans a data card read 
ciTaracterv/ise , IBP.Q-I.65 signals the end of 
a d at a c ard . 

Pointer to number of words stoic d in tlie 
SEARCH array, IRSCOR .G-1 .50*1 0 prints an 
error message and resets all pointers for 
a fresh tent reading. 

Stores the grammar code of the dictionary 
entry that has matched the root of the 
word , 

Dumber of sentences read into SSiROH from 
the input text. 

Dumber of ciiaracters in the ROOT of the 
v7ord , . 

Pointer to the number of groups present 
in the sentence. 

Pointer to the number of entries in the 
dictionary. 

Contents of a single data card from col 2 
to col 66 are read into tiiis array. 

Pointer to number of possible responses to 
the question sentence. 

Stores the possible . gramraar code of the 
entry in the sentence. 
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LOGii 

LPTH 

ROOT (3) 

SEARCH (5 00 j 6 ) 

ST0RE(200,5) 

SUPIX1(52,2) 

SWITCH 


Temporary location for storing input lata 
words .before restoring thorn to V/OED. 

Pointer to number of frame words in the 
test frame. 

Stores the root of the word after the suffir 
has beon removed. 

Stores the input text of sentences one by 
one wordv/ise , This provides an effective 
storage of input text of a maximum of 10 
sentences, each sentence being 50 words long. 
Array that provides tho output. The first thi'ec 
words for each entry stores the p'OSsiblG answer 
to entry, the fourth its grammar code and 
the fifth, the selected sentence in the text 
from which that cntrjr is picked out , A.ssuiaes 
a response of 20 words from each scntoncc 
(maximum) . 

Array for storing the suffixes and their 
grammar codes and action codes. The orgonisa-- 
tion is given in soction 3o. 

A variable tha.t is assigned one of the four 
values, 1,2, 3, 4 to flag the input card read, 
at appropriate places. 

SWITCH = 1 is assigned at the beginning 
of an input sentence. It remains in that 
value until a character other than a blank 
or comma or period occurs. 



25 


SWITCH = 2 is assigned vidien. an alphabetio 
cliaracter is one omit ere d thus flagging the 
beginning of a word. It remains in that value 
as long as only alphabetic characters are 
pr.-sent in the input word. 

Sv7I!rGH=3 flags the presence of an alpha- 
numeric or special character in a word, thus 
suppressing the dictionary?' lookup and sub-, 
sequent suf'fix test for such entries. It 
remains in that value , so long as alphanumeric 
or special characters airive successively at 
the input , . 

S7IICH=4 is assigned when the end of an 
input word is reached. It remains in this value 
till a new word is encountered (when its switches 
to 3 or 2) or end of sentence is reached 
(indicated by a period). 

EijB(7) Stores the pointers in the reverse order, 

that demark the different suffix groups 
classified according to the number of 
characters in them, TAB is used to fix the 
limits of the scan of SUPIZI for a match to 
the given sufix. 

¥0HD(51,6) Array for storing the sentence wordwise . 

Provides a maximum cf 51 words for each 
sentence stored. Each entry in WOHD has three 



three computer words for storing the on try, 
fourth for storing its grammar code fifth and 
sixth unused (can be used to store other 
information like entry's suffix, its grammar 
code etc.). 

Apart from these variables, fow logical variables employed 
are described in the routines in viiich they find thoir plac 

3,5 hBSCHIPflOH OP ilOUfli'IEJS AlID PL0\T GflimiS 

Aiay natural language data processor for solving 
programmed insxruction text consists mainly of tv7o steps; 

(a) grammatical coding of input text 

(b) the actual processing using the above coding to 
guess the response for the blank entrj- at the end 
of each text . 

fhe explanation of the routines used for the grammatical 
coding of input text is not of iiiterst in this report. How™ 
ever, to make an efficient use of the grammatical anal 3 ?-sis 
few routines like dictionary lookup, suffix testing aro 
provided before giving the text as input to the grammatical 
processor. The organisation of the routines is 

(1) IITPUT of the programmed text 

(2) dictionary LOOICUP 

(3) SUPIZ testing 

(4) AI® routine 

(5) BPPIiAE routine 



( 6 ) PICKUP routine 

( 7 ) IvIAIIT routine . 


3.5.1 IlIPUI Routine 

This routine is intended for reading in the 
programmed tent data sentcncewise . It also prints out the 
sentences as the:,'' arc read. It also provides a simultane- 
ous lookup of words, as the;/ arc road in, through a call to 
LOOKUP routine. It, iiov/cvor, assigns an indicator to the 
blaiok entry and to alphanumeric words in the input text thus 
suppressing an otherwiso made dictionery lookup vd.th no 
success, A logical vriable TEST is turned .TRUE, to indicate 
to the idAIIT routine that the input text is over (i.c,, the 
sentence with ‘ 7 ^* entry iias been read) and it can proceed 
to process the text . A variable SUITCE facilitates storing 
an input sentence wordwiso intoWOICD. The presence of a 
period followed by a blanli or an alphabetic letter signals 
the end of a sentence and returns control to MAIK, Attempt- 
has been made to provide the user a free format of giving the 
text but to stick to the nature of ordinary English texts 
one has to remember a few points. 

(1) Input text is given in cards from col 2 to 66 , 

( 2 ) A punch ill col 1 treats the card as a cemment 
card . 

(3) Each text vrord not exceeding 18 characters should be 
delemitcd with a blank or a comma. 

.( 4 ) Successive blanles or commas or periods in the 
input text are- ignored. 
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Stage TV s Read a blaiik: or canuna in the input text (a word has 
gust been stored into, array ’WOEI)' ) 

TTOW CHART ♦ IIPUTV (COITD .) 
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PLOVr OHAET ’IlCPin)' 









(5) A period is used to signal the end of a sentence. 
However j a period between two nunioric character is 
treated as the decimal point, 

(6) r/ords with alphanumeric characters are specially- 
tagged . 

(7) Ho more than 50 words are allo?/ed for a sentence 
and no more than 10 sentences for each text. 

(8) A Sentence starting in as the first word 

signals the end of all input texts, 

For more details refer to the flow chart given in 
Pigiire 3.2 

3.5.2 LOOKUP Soutine 

Lacli word read from the input text tlirough IITPUT 
routine is searched in the Dictionary in an attempt to 
assign a code to the v;ord. A code is assigned if a match is 
found in the dictionary. A similar call made from 8IJPIZ 
routine helps to find a match for the P.OOl of the word in the 
dictionary, The SUPIZ routine requires a dictionary lookup 
after the execution of each action code of the suffix 
satisfied, Iho pro -assignment of grammar code to kno?/n 
\TOrds is done in order to simplify task of the grammatical 
analyser. The argument H gives the entry number in W0B.D if 
a lookup is done from INPUT . The argument is zero if a 
call is from SUP IX routine. This is because in one case 
i70pLD(H) is searched end in the other case the HOOT is 
searched. Searching for a match in the dictionary consists 




Call LOOKUP from 
IIPUT 
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in cleteimining the starting alphabet of ''^OED or ROOT and 
identifying it •'^ritii ALBEfS which gives the lov/er and upper 
limits of the soan. A logical variable EOUIID is used to 
indicate whether the scan is a successful one or not, 

3.5.5 SUEIX Routine 

Sn^ish word in most cases occur with a suffix, 
especially when one deals with plurals of nouns, past 
tense of verbs etc. Due to the restriction of using a 
limited class of dictionary words, tiie dictionary does not 
provide suffixed words, lo ovei’come this, one considers a 
SUEIX routine to perform the operation of removing the 
sufii:!!;, identifying it with standard suffixes previous ]y 
stored and assigning to the word the grammar code of the 
suffix if a match is found. In addition to it, the SUEIX 
routine performs some additional operations like deleting 
or adding character(s), to the EOOI of the word depending 
on the action code(s) of the suffix matched , It also does 
a dictionary lookup of ROOI tlirough lOOICUP routine , If a 
dictionaiy match is found, the intersection of the two 
codes, one provided by suffix match and the other by the 
dictionary, is assigned as the grammar code for the present 
word, WORD (H), for v^mich the test is carried out. A 
systematic manner of suffix test, starting from the 
first group of suffixes (suffixes cf 6 chax'acters) to 
the last group (suffixes of single character), in most 
cases, enables one to arrive at the actual suffix of the 
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PLOW CHAET POR'SUPIX(iT)' ROULIIIS (GOlWD.) 
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vrord» Since, for each action code of a suffix* th§ HOOT 
undergoes modification for dictionary lookup, a routine 
BSPItil] i 3 called to save and later on iestore back the 
contents of £001 for further analysis, Another routine ADD 
is called to perform addition or deletion of characters from 
hOOl as required hj the suffix. Just like tlB lOOKlJP routine,: 
the SUPIZ routine also simplifies the task of the grammatical 
analyser. Inspite of the grammatical analysis using dictionar;; 
lookup and suffix, it has turned out that some input words may: 
not yet have grammatical units assigned. A heuristic 
scheme developed by (5) has to be adopted in such cases. 

However, the suffixes and actions that have been used, provide; 
more or less a general scheme for evaluating the grammar of 
the word . 

3,4.4 EEPLAE Routine 

Phis is a small routine intended to store the contents : 
of the first argument in the second argument. Phis routine 
is called froii SUPIX routine. Each time an action code of ; 

a suffix is executed contents of EOOP get modified by | 

addition or deletion of characters to or from it. One feels . i 

safe if the modified EOOP finds a dictionaiy match, but I 

in case it fails, 03ae has to restore the original EOOP of | 

the word and apply ne xt action code if there is one. Po ; 

achieve this, one calls EEPLAB routine before the execution ; 
of the action code, to save contents of EOOP in IPIMP. After | 
the code is executed, one again calls the ESPMB routine to | 

■ ■ ■ ■ ■ I 

restore the contents of EOOP from the temporary location IPSMP.| 



3*4*5 Routine 

The action codes of a suffix demand certain number 
of characters to be deleted from or added to the ROOT of 
the v/ord , This addition or deletion becomes necessary 
because when some basic words are used ?/ith the suffixes, 
their root might have been changed a little to form 
compound words with the suffixes. This routine facilitates 
simeltaneous deletion and addition of characters in the 
ROOT, Out of the three arguments used, the first one 
specifies the number of characters to be deleted, the third 
'CHAR' and the second 'IT' specify the word to be added and 
the number of characters in. that word* Since N never 
exceeds a value of 3» the three computer vmrds for the 
ROOT is still sufficient Y/’hen it is modified. 

3 .4 PICKUP Routine 

A pickup routine has been provided to group the. 
T/ords in a sentence according to selected grammar frames,. 
This assumes that the sentence has already undergone an 
elaborate grammatical analysis and that each v/ord is 
provided with a unique grammar code as far as possible. 

The routine scans the sentence, looking into the 
grammar category of each word, forms a group if a grammar 
frame starting in 'functional unit 1' and ending in 'Porm 
class 1' is met. Similarly it proceeds scanning and forms 
a group whenever a 'B-2' frame or a *P— 1 ! frame or frames 
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¥Lm CHiiHT I'OE ' ROUTm 

M - no, of letters to te deleted from ROOT 
1 - no, of letters (in OTI/iR) to be added to ROOT 
CIRiR - contains cliaraoters to be added to SOOT, 
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FliOu' CHAHE YOS 'PlOICa?' ROU'TIITB 








not belonging to any of these is met, lliis routine reiurns 
the groups and their limits in the sentence as its value, 
This group selection has been done with a view to accurately 
pichout the correct word from the sentence. This is done by 
comparing such group frames of the selected sentence with 
the group frame of the blank entry in the question sentence. 
This analjrsis produces successful results when the blank 
entry is possibl 3 r a noun with a qualifier before it or it 
is qualifj-ing a noun after it , By comparing the qualifiers 
in the two group frames one picks out fairls?' correct word 
re quire d . 

3,4.7 144 Ur Routine 

A slight deviation in the description of routines 
is done by providing the liAIh at the end. The main routine 
after calling in the various subroutines discussed above, 
analyses the i-esults obtained in doing the text processing. 
The flow chart for the llAIh has been given a greater detail 
to reduce the content of description here. The essentials 
of the routine are hov/ever given below for completion. The 
sequence of ..-events in the processing are, 

(1) Read in the programmed text through IKPUT routine. 

(2) Get the sentence with the blank entry gramraatically 

coded. Collect the group frame and the grammar code 
for the entry in the sentence. Collect the "test 
frame bj?- scanning on either side of the entry. 

Store the -word next to’ 'if possible. 
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(3) By a cont;ex'b raatching using tlie test frame 5 p-iek the 
sentences from the te:tt that provide maximal match. 

G-et the grammatical structure of these sentences. 

(4) Since the grammar code of the ';4' entry v;ill te one 
of the four ‘Bonn class words' , do the analysis 
separately. 

(a) If the code of the entry is 'class 1' then 
the group frame which contains the entry is 
matched against the group frames of the selected 
sentonce. If the two group frames possess atleast 
one matched grammatical unit, then that group 
frame of tlie selected sentence is chosen, Ihe 
vrords v/ith grammar code of class 1' in the 
selec'Ged group frame are given as the response* 

(b) If the grammar code of '7^' is 'class 2' or 'class 4' 
all the \7ords in the selected sentence having the 
grammar code of 'clas 2' or 'class 4‘ are selected 
as the response, 

(c) If the grammar code of '/'is 'class 3* a 
qualified T/ord(' class 1' word) follows it. 'Class 1' 
words in each group frame of the selected sentence 


are matched against the qualified viord mentioned 
above. If a match occurs the qu.fif lei's preceeding 
these 'class 1 ' words in the group frames of the 
selected sente 11 CO are given as the response. In 
all above cases, if a match does not occur, the 
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words hawing the same gramraai-i code as entry 
are picked from the selected sentence, 

( 5 ) Ihe final phase is the presentation of the output in 
a suitable format. 

Although the MAIiT routine does an elaborate 
analysis to arrive at a unique response, still the output 
takes accuracy and presents ambiguity because of the 
absence of precise information about the gramiiiar of the 
tort processed. Ihc llkUl also provides an error message, 
"iXiffi IHAI 10 Sll'ffiSkCSa IF A ISXl, ALL POIFLLRS IFITIALISBL" 
when a text containing more than 10 sentences (msDcimum 
limit due to core restriction) is read in. An error message, 
"DEEIIoIOF ©’'ffiRPLOW IF UCZOX AHBAY” is used to check any 
array exceeding its ma^eimum dimension. 

The nesrb chapter discusses some aspects of the 
results obtained. It also points out some limitation of 
the scheme and suggestion for improvement and extension 
of the scheme to advanced fields of text processing. 
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GHAPIBR IV 

Essmis Airo c®ciu3iORS 

4 .1 EISULl’S 

A test run, carried out on a few passages picked 

from a programmed instruction manual for teaching program-- 
. . 4 

rning T;ecnniques is presented in Appendix A, Ihe output 
is printed out at various stages of analysis of the pro- 
grammed text data by the processor program. Ihe stages of 
output are; 

(i) after the tert containing the question sentence 
has been read. 

(ii) after the grammatical analysis of the question 
sentence in the text by the grammatical processor, 

(iii) after the test frame of words is collected from 
tlie question sentence 

(iv) after picking and grammatically analysing the 
sentence, which is likely to give the desired 
response . 

(v) after determining the group frames for the 
selected sentence and the group frame for the 
blank entry in the question sentence. 

(vi) finally, after picking out the possible response (s) 
for the programmed text from the selected sentence. 
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Altiiough developed on a heuristic notion, the scheme has, on 
mai'x/ programmed text inputs, given good and more or less accu- 
rate responses* In some casgs only, the responses obtained have 
Guriied out "go be ambiguous, lo enable the user to detect the 
pcos 2 .ble punching mistakes in the text data, the program prints 
out error messages, v/hich arc themselves self-explanatory, 

I'or example 

1 . ”EEROR-FaiIBSE OF CMSACTERS II A WORD EXCEEDS 18” 

Ihis error might have arisen cither due to the missing 
blarfcs between successive words or due to the program- 
mer’s intention to use len^gthy v/ords . .In this case, the 
program prints the error message, ignores the characters 
that occur after the mcucimum limit until a blank or a 
comma is road, which signals the enci of that T^ord. Ihe 
word in error is also printed along v/ith the erroi- 
message. 

2. ”ERR0R~M0RE lliAlI 50 WOIDS Ik A. SBITTERGS” 

Ihis error might be due to a missing pei'iod between 
successive sentences or might be due to the users 
intention to use lengthy sentences. The program 
prints the error message and stops processing, The 
sentence in error is also notified in the printout, 

A few error messages like, "ERROR III SUEIX AMEISIS" , 
"ERROR II GRAMBIATICAI ARTALISIS", "EPJ10R II ACIIOF CODES” etc. 
have been provided to detect the malfunctioning of the system 
while executing the program. A.ppendix S provides a list of 
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suj^j-izes and tlieir actrion codes « Appendix G provides the 
loco word dictionary. Appendix D gives the program listing. 

4,2 OOllCrjSIOITS 

Preparation of a programmed text for any application 
IS a difficult task. And those v/hich have boon proparc'd, need 
to ho evaluated, to determine ?/hether they serve the purpose 
for which tiie 3 - ^.re intended. By having a scheme for programmed 
text proccssjng, one gets an insight into the text to decide 
whether it is a "bad one" (not well prepared) or "a good one" 
(’»veli prcpax'od) • 

A look at the nature of the output obtained for our 
scheme points out, that in semG cases, ambiguous words (some- 
times totally wrong words) have been guossed as the possible 
response to the question sentence in the text. Ihis means that 
the text and the question sentences have been framed properly* 
Because , if a computer, provided only with the grsimmatical 
iniLorrnation on tho text and no intelligence with rGgaT*ds to the 
lucaning of tho sentences in the text, could guoss the response 
accurately in all cases, then an user of the programmed text, 
given tho same background could also guess the response without 
actually understanding the contents of the text. This -is not, 
what wo dosirc from an user. By ha-vlng ambiguous responses, 
the task of a programmed text user is made difficult in 
guessing the correct response, because he must now understand 
tho text first and then attempt to ansv/er the question sentence . 
This above facility provided by the scheme given in this report, 
aids in the preparation and tho evaluation of programmed texts 
V7ith grammatical background alone, which is what we aimed at doing 
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Tne present dictionary could be developed into a 
” t.iesaurus” type to inGorporstc additional grannaatical in— 
iorac.tion to each entry of the dictionary. Hero each entry 
in tnc dictionary is provided v'h.th two codes* A grammar code 
calls in appropriate routines for gramamatical analysis » The 
grammar code could also provide additional grammatical in- 
formation, imtoad of the b.road classification used in this 
report. Por example, if an entry is a noun or a verb, we 
could add details like its gender, case, number, etc. And a 
semantic code for each entrj?' could be a pointer to another 
small dictionary giving the antonyms, synonyms, word pairs 
etc. of the present cntx’y* "thesaurus” type of dictionary 
y/itli above rac ir'c iono d informations could make more accur- 
ate text pi-ocessing possible, Hov/cver, one is cautioned 
against the development of such a dictionary, because, by 
introducing all words, the dictionary becomes, one that 
represents tix; bcickground of tlio designer of the programmed 
text and not one that represents the background of the user. 

So when a "thesaurus" is constructed, it should cover only 
the background of the student, vyho is going to use the text. 
The "thesaurus" could, however, be updated when it has to deal 
v/ith programmed texts, prepared for different applications. 
When a "thosauxus" is to be used, more core space might be 
occupied by the dictionary itself, leaving only a little space 
for the program and the data text. If, the (Quantity of texc 
processed and not the text processing speed is of import anec. 
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uiiu uchcmc could make use of backups like discs, tapes etc. 
0.03? Sooriii ;5 the dictionairy and the programmed text data. 
Routines should be included in the present scheme,, to take 
ca3?G ox this . 


Since the test frame, described in the report, is the 
one tnat picks the sentence, which is most likely to contain 
the dcsix-cd response, one would like to have additional words 
of importance in it. At present only 10 words on either side 
of tn. blanlc entry in the question sentence, form the test 
frame, Instcud, Ghe v/holo sentence could bo scanned and words 
of specific grammar cctogory could be picked or if special 
punctua’.tioii marks are piusent in the sentence, they could be 
iiiade use of in splitting the sontcnce to distinct parts and 
analysing the parts individually . 


Another development of the scheme, is to take care. ' 
of multiple blark ontrios in the question scntonco . One 
suggestion is to provide as many passes of the text as the 
number of blank entries, the results of each pass boing 
used in subsequent passes. This may not, however, ensure 
accurate analysis and also any vn-ong response to the first 
blank affects the response to subsequent blai3ks , It is also 
possible, in a complete programmed text, such question 
sentences might appear frequently between successive passages 
of the text. The scheme could bo extended to take care of 
such cases also, by providing a more precise grammatical 
analysis and an accurate context matching. One should not 



looG tracic Oi cho corrbcxt, tho results, tlic Irane words 
a.-iU ObUcr rnforraations used in guessing the response to the 
first question contence, Ihis is because, as v;q move to 
successive passages of the text, informations obtained from 
tne previous passage may hjivc a relevance in guessing the 
response to tho quootion that appears in the next passage. 


finally, the development of the programmed instruc- 
tion texts has been one of the contributing factors to the 
grov/’th of computer assited instruction (CAI), in that, they 
provide individualized instructions and assist authors in the 
development of the instruction materials, Iho scheme, 
developed in this report fulfils the first roquireoient of 
the CAI for largo educational system, by irsuting the instru- 
ction material into a prograimned instruction text with the 
aid of computer produced response. By incorporating tho 
text with the correct responses in the system, an on line 
computer can evaluate tho performance of a student, by 
presenting him v/itli the text minus the responses, asking 
him to guess the response for the question sentences and 
then b3?- comparing his lesponses with the correct responses 
and talcing a statistics of the responses provided by him 
over a number of texts under the same subject. With the 
advent of time sharing systems and the capability of the 
central processor to maintain more than one terminal 

7 

simultnnGOuslji’- the computer cm actually conduct a GAI course , 
thus providing a continuous and automatic assessment of tho 
students’ abilities and potentials over the subject under 
'discussion. 
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APTEICDIX A 
SA!.CPLE OUTPUT 

liOTE; Uuraerals or alphabets within c[Uotes represent 
gramraatical codes . 

Example 1 
INPUT TEXT 

TEACHING STUEEl'ITS AED TEAIMESS TO SAY AITO DO CERTAIN 
THINGS IS THE IvIAJOR CONCEEl^ OP THE NEW TECHNOLOGY PEOGRAMEL 
INSTRUCTION. A LIST OR SEECIEICATION OP TIE THINGS THE 
PROGEAUER WANTS THE STUDENTS TO HE AEIB TO SAY AND DO AT 
TIE END OP TIE PROGRAIT IS CALLED A SPECIPICATION OP THE 
TSEHINAL BEHAVIOUR POR THE PROGRAI;!. A SPECIPICATION OP 
THE TEEIIINAL / IS IMPORTANT TO THE PROGRAIBER. 

GRAIvaiATICAL ANALYSIS OP QUESTION SENTENCE 

A SPECIPICATION OP THE TEEI4INAI ^ IS IMPORTANT 

*A* M’ ’P* ’A’ ' 3* I -] I 1 2 ' ' 1 t 

,TO THE PEOGRAIEIAE 

fp' »A' '1’ 

^ GROUP PRAMES OP QUESTION SENTENCE 
1 1-2 2 3-6 3 7-7 4 8-8 5 9-11 

TEST PRMES 


WORDS CODE 

SPECIPICATION ' 1 ' 

TBEIvIINAL '3i 

IS '-2i 

IMPORTANT n; 

PROGRAMI'ER Ml 
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SS] 


BCTSD 


SBIIgEHGE AID ITS CODES 


1 i 

pii 

= 1 

DO, 
' o I 

S?I 
' 1 ' 


USD 
'1 ' 


OR 


}I0II 


uGR^Ju^.BR 


t 




'R‘ 


TI-IE 

'A' 


iOIRICaTIOH 


SPEGIPICiiT 
'1 ' 

SI'UDEl^S 
' A ' ' 1 ' 

EDD . OP Ti: 

’ 1 ' ' E' 


vAArlS TIEU 

'2’ 


OR 

I Rl 


>A' 


OR TIE 
' R ' ' A ' 

TO HE. 

'B' 'B' 

PROORaM, IS 

t 1 ! tgt ! 2 » I ji.» 

lEHAYIOUR^ROR THE 

'31 til ’ R ’ ’ A ' 


THIRGS THE 
' 1 ' 'A’ 

ABIE TO SAT 
! 2 1 1 3 r t 2 I 

CADIED- A . 


'A' 

- TERIvIIIaIj 


ARD 


PROGRiili 

’1 ' 


GROUP RRaAES ROR THE SEIE-OTED SET?TBRaE 


1 1- 2 2 3 -3 

6 10-10 7 11-12 8 
12 20-22 13 23-24 

17 34-36 


3 4- 4 4 5- 7 5 8-9 

13-15 9-16-17 10 18-18 11 19-19 
14 26-27 15 28-29 16 30-33 


OOi, DETER PRODUOED PESPOITSES TO TEE. QUESTIOR SEICTEROE 


EITTRI 


CODE SEUTEITCE 


TERITIFAL 13' 0 

BEILiYIOUR ' 1 ' 2 


Ex^ii-iple 2 
IIIPUT TEIT 

PROGRTIIED inSTRUGTIOIT FDY USE ITEMS OR THIS TYPE. 

A FORD IS MISSIIG RROII A SEUTERCE, iOU) THE STUDERT IS REQUIRED 
TO SUPPLY THE MISSIUG UOPD . \7E GDI PROGRiUI A TEZT BOOK OU 
LOGIC. PART OR THE JOB EHTAILS WRITIIIG SSHTBYaES THAT HATE 
ATLEAST OKE JOED MISSIHG. THE STUDERT IS ASKED TO WRITE THE 
MISSIHG WORD. Vffi CAR ALSO PROGiUm A TEXT BOOK OR PHYSICS, 
GRARliAR, ART, OR PERSORIEL IDULlGEIilBRT . EEGIlEIDLESS OR THE 
SUBJECT Mi'iTTBR, IR' m 1?RITE A PROGRiUI GORSISTIRG OR 
IRCaiPIETB 3ERTERCES, T;E WOUID REQUIRE THE STUDS HT TO WRITE 
TIE MISSIRG WORD. E USB a TAPE RECOxElR IR PROGRAMtlRG A 
SPOKER LARGUAGB. THE STUDERT lEARS A SERTERCE IR THE LARGUAGE 
IS IS TO LBARR. A PHRASE IS MISSIIG RROM THE SERTERCE AID THE 
STUDERT IS REQUIRED TO WRITE TrLJD 

GRAIvlIATIOAL ARALYSIS OR gUBSTIOR SERTEROB 

A PHRaSB IS MISSIRG RROM THE SERTERCE ARD THE STUDERT IS 


'A‘ 'B’ '2' 

1 Jlf 

'A’ '1' 

tgi 

'A? '1' 


REQUIRED TO WRITE THAT 

/ 

^ > 


^ , 

: ... ... 

- . 

1 2> 1^1 i2» 'A' ' 

1 * 





koUP RRAIv]ES''0R QDESTIOI 

I ^RTERCE 




1 1-2 2 3-4 5 5-7 4 

8-8 

5 9-10 

6 11-12 

7 13-14 



8 15-16 
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T2ST PHaI.]SS 


WORDS 

CODE 

SLHTEIIGE 

1 1 t 

STUDEHT 

' 1 • 

REQUIRED 

>2' 

4TtITS 

!2t 


33 LE0gED SE ITT EnCE AW ITS CQUiS 

A lOKD IS HISSIiTG PP.OIvI A SSJOTEITOE iEID THE STUDEOT IS 
' — * ' 1 ' ' E ' ’ 2 ' t p ' ’ A ‘ ’ 1 ’ ' E ' ' i< ’ ’ 1 ’ ' B ' 

iOQUIEED 10 STjPPIY THE MISSIITG YOBD 
* 2 * ’ 1) ' • 2 ' ' A ' ' 2 ’ ' 1 ’ 

gR-ISS EOR I KE SBIECIED SEHTEITCE 

11-2 2 3-4 5 4-7 4 8-3 5 9-10 6 11-12 7 13-14 

8 13-17 

p_0] I PUIAR PROEIJOEB ESSPOIISES TO THE ^aUBSIIOH SEICTEIOE 


ERIRY OOEE SENIEROE 

\/ORD » 1 ' 2 


Ezaiiple 5 
IZTP UI lEII 


AE CxAT SYEYCHIilG- IHROUGH PROGRAltEISD IRSTRUCIIOR . A YOURG 

GxRGIST 13 G-r/ER A PIG PURE WIIH SCIIS OE IHE LISES IE THS SEEIGH 
OlilPYED. II-E SIUIERI IS SUPPOSEE 10 EPuiW THE OLII'IIID LISES .III 
EACH OE Y?ESE EX.-AIPIES OE PROGRAlyEvin^G , SHE SIULEM} ILiKES SOiffi 
laiTD OE AI^ OBSSRYilBLE PESPOilSE . A GliAlAOIERISEIC OE PROGiL'iliBD 
BTSYRUCTIOR IS IHAI' IH3 SYULEl® IL1ICES OBSERVABLE ESSPOITSBS .YOU 
.AC RSSPOITDIYG WHSR YOU DO SOivSIHIFG . WITH PROC-ILAEEID IRSTRU- 
CTIORS, YOU .AS REQUIRED TO I.ASE OBSERV^^BLE PSSPONSES .WHEN YOU 
LISTER TO lEOTUPE YOU PROBABLY RESPOIS TO VUC2T YOU HEilR, BUT 
SUGH EBSPOFSES CBZ ROT BE OBSER^/ES . PROGR/ESD IITSTRUGTIOR, 
KOvffiVER, ESQUIRES TEE STUDEUT TO JUICE OBSERVJSEE EESPOHSES. 
PR0GRA3.IIUG SHiRES THIS ;SVAST..GE BY REQUIRIRG THE STUDEHT 
TO iLiKS OBSEPAUBLB /. 


G PuABLlTIGAL BLTDYSIS OE QUEST I OH SERTEBGE 

PROGEiAIIIITG SIURES THIS .IDVAHTAGE BY EEQUIRIJIG THE STUDEHT 

i2« '1 ' 'AY '1 ' 'E’ '1 ' ’A< '1* 

TO- ILACE OBSERVABLE ^ , 

*B’ '2' J3' ' 1 ' 



gjjQII ?. i'E.nl.ISS 01 QUESglOIf SBgTBIJOB 

1 1-4 2 5-6 3 7-8 4 9-10 5 11-11 6 12-12 

5B 3£ PHaS 


7/OBD COIS 

SILiHSS 1 2 ' 

^J)Ys-.mkQrB I 1 > 

BBQUIRIFG ' 1 ' 

SIUBSHT < 1 ' 

LL'Jffi t2t 

OBSERYRSIB '3' 

SE EGTBI) SBITTEITCE AIO ITS OODES 

PHOCtIEED ir,3IIllTCTI0I HO^TEE EBQUISES PPIB SPIIDEE TO 
' 2 ’ ' 1 ‘ ' J ' ' 2 * ' A ' ' 1 ' ' B ’ 

IA.EE CBSEEYAEE BESPOHSES 

i2t >3t til 

G'EOUP EEiAI E POE THE SEECTEB SBITENCE 

1 1-2 2 3-3 3 4-4 4 5-6 5 7-8 6 9-9 7 10-10 

COMPUTER PRODUCEI) EESPOESES POE THE! qUBSTIOE SEETElOE 


ENTRY 

CODE 

SENTENCE 

BT STRUCT! OH 

•1* 

9 

OBSERTxiBIE 

‘31 

0 

RESPONSES ■ 

Mi 

9 


Example 4 

INPUT TEXT 



liSEDIATBII TEIIBTG THE STUEEUT THAT A RESPONSE IS AGCEPTiESDE 
INOHE.iSES TtE PROBilBIIITI TIAIT THE RESPONSE WHE OCCUR ON EUTUEB 
OCCASIONS. THIS IS CxiEEE REINEORCIITG THE RESPONSE. WHEN Vffi 
TBIL THE STUDENT BEEDIiiTELY TTLED A RESPONSE IS ACCEPT A EES ’IS 
REINFORCE THE RESPONSE . IlfflEDIilTE REINFORCEMENT OF ACCEPl/PBIE 
RESPONSES INGEB..SES T5IE PR0B.7BILITY. THAT THEY Will OCCUR ON 
FUTURE OCCASIONS. TO IITCREASE THE PROBABIIITY OF AN AOCEPTABCB 
RESPONSE THE PROGRBS/IER RBINF OBOES TBS RESPONSES BfflEDLlTEIY 
■■^TER IT Hi'S OCCUEED. BEE3DIATE PDINFORGEIBlff OF ACCEPTABLE 
iijSPOITSES fiTCREASES THE PROBABILITY. TO INCREASE THE PROBABILITY 
OF BT ACCEPBBIE RESPONSE ’73 lilDST REETFORGE IT BEIEDIATSEY . IF 
17E ^ EEIHFOROE A RESPONSE IJE INGREiEE THE PROB.IBILITY TH/iT IT WIIL 
OCCUR ON FUTURE OCCASIONS . 


GIL MCTICiiL AII/JiYSiS OF THE giBSTION SENTENCE 
IF Vffl A EE BIFORCE A RE SPONSE • Tffl INCREiBB THE PROBABILITY 

t Til lit 131 1 1 I ' A ' * i ' • 1 I 1 2 • f A ' 1 1 » 

TIBiT IT A/ILL OCCUR ON. FUTURE OCCASIONS^ Y 7- . . 

'A' '1' ’B' *2' 'F* '3* 



6 8-8 7 9-10 


"'3L1 S3 goE T'l-iB anHisgion seicteitce 

• 1-2 2 3-3 3 4-4 4 5-6 5 7-7 

vv 11-12 9 13-14 i2 15-17 

:\r, 

. Jl. ^ W. 



CODE 

jE 

'1 ' 

EEIPPOEGE 

'll 

EE3-: OIGB 

' 1 A 

t(B 

'll 

lEOEE^GB 

'21 

PSOE-IBIEIPI 

'1A 

IP 

All 


aLi£ ggi:;D agEgmigCE 411 D its cojjBS 

s-c i:.C3S..3Ii TiS PH0B.13ILITI OP AI ACGEPTxiELE EESPOITSE 
*:■' ‘2' '.t« '1' ’E' 'A' '3' M' 

IPE. AU3E SEIPPOPCE ..IP IIvEIBPIIiPEri - ■ ' 

’1’ '2' >3’ . M’ '4' 

GHOUP PHal^IBS EOa THE SELECPED SSEPEEOB 

1 1-2 23-4 3 5-8 4 9-9 5 10-10 6 11-11 7 12-12 

8 13-13 

CO riPUPEIi PRODUGED EESPOITS E P OE THS QUESTION SEITIBEGE 

EPPSY GOPE SBHPElTGS 

.■.GGEPP;SIE ' 3 ' 7 

IPJSP '2' 7 



APEEEDIX B 


SUlBIjCES AHB CODINGS 


SUPBIX 

GEAlQiM 

ACTION 

SUPEIX 

GR.»IR 

ACTION 

SIITIY 

CODE 

CODES 

ENTRY 

CODE 

CODES 

SELVES 

1 

1 

ISH 

3 

41 




OUS 

3 

5421 




LiiE 

3 


THING 

1 

1 

ARY 

3 

1 

V/HEEE 

4 

1 

PUL 

3 

31 




ATE 

3 

521 




ENT 

3 

421 

MCE 

1 

1 

ANT 

3 

421 

RffiNT 

1 

61 

IVB 

3 

21 

SION 

1 


CRY 

3 

521 

NESS 

1 

61 

EST 

3 

1 

BODY 

1 

1 

NAY 

4 

1 

SELF 

1 

1 

ILY 

4 

3 

LESS 

3 

1 




LIKE 

3 

1 




MLB 

3 

1 

M 

13 

621 

IBLE 

3 

1 

SB 

1 

8 

SOIE 

3 

1 

ER 

13 

421 

’./iii® 

4 

1 

TH 

1 

21 

TIME 

4 

1 

'S 

3 

1 




S' 

3 

1 




VE 

2 


UHE 

1 

21 

EN 

23 

1 

ITY 

1 

21 

ED 

23 

41 

AGE 

1 

1 

LY 

34 

1 

ANT 

1 

21 

IC 

3 

21 

ING 

12 

1 




ISH 

1 

21 




ONE 

1 

1 

Y 

12 

421 

IZE 

1 

31 

S 

12 

1 

lEY 

2 

731 

D 

12 

1 



APEEIDIX C 



DICTIOITMY 

o 

o 

o 

o 

o 




A 

A AH 

A 

ABLE 

23 

ABOUT 

F 

ARUCLf; 

1 ASIDE 

14 

AS!' 

2 

AT 

F 


4 AFTC.YlOno 

13 


F4 

AOAIKST 

F 

An">VF 

F43AnSfD'!T 

23 

ACCEPT 

2 

ACCIDENT 

1 

AS 

43 ACCORD 

12 

ACCOUNT 

12 

A rpnn cc 

F4 

ACT 

12 ACTIVE 

3 

ACTIO?' 

1 

ACT5JAL 

5 

Al>n 

2 ADDRESS 

12 

ADJECT I VE 

13 

admire 

2 

ADVICF 

1 A E POP LA ME 

I 

AFRAin 

*y 

AFTER 

F 

ACT 

12 AOM 

?» 

ASP EE 

2 

AIM 

2 

Ain 

12 ALL 

A1 

ALLOO 

2. 

A LOME 

3 

AI-O’K^ 

3 ALREADY 

h 

ALSO 

h 

AU-'AYS 

4 


4 A in OUT 

12 

A fl ; t r* p 

A: 

2 

Ann 

Ed 

A^'CC 1 

12 AMBLE 

1 

A?’rmL 

1 

A^tOTHER 

13 

a:"S’.c'' 

12 ANXIOUS 

3 

AMY 

A1 

APART 

4 I 

apph;'.*’ 

2 ADJNiiut 

2 

ARISE 

9 

ARM 

12 

A:liPP''! 

F AOAAUQE 

2 

AY DIVE 

2 

ART 

1 

ATTACn 

12 ATTEMPT 

u 

ATTEP’D 

2 

ATTEHTIOM 

1 

A'^AiCE 

n AVvAY 

4 

A! 'FULLY 

D 

ARE 

2 

n 

t » 

1 SACR 

12 

BAD 

*» 

BAG 

1 : 

!IET'T.!:r 

F PEYDi'D 

F 

BIO 

3 

BITE 

2 

BAnn 

12 RAT-’l 

12 

BAP. 

1 

BARREL 

1 

ntiJV: 

12 'RATTLE 

12 

BE 

r> 

RE All 

1 

BEAT 

2 CEAlfTY 

1 

BECA!?KE 

j 

BECOME 

2 i 

BEFnnr. 

U HEn 

2 

BEOIM' 

2 

3E!:AVimm 

1 

BESiAVE 

2 DEO IMP 

F 

BELIEF 

1 

BELIEVE 

2 

BELfP'Al 

2 BE LOO 

F 

PEST 

3 

BETTER 

3 

BLACf^ 

13 BLADE 

1 

BLOCK 

12 

BLUE 

13 

BOAf.!) 

12 BODY 

1 

BOLD 

3 

BOOK 

12 

BOOT 

1 nn.’UEp. 

1 

n r; Tf! • 

A1 

PiOTTOU 

1 

nO'.'EL 

1 BOX 


nOY 

1 

BRAIH 

1 

OnAOCK 

12 BOEADTM 

13 

BDEAK 

12 

BRIGHT 

3 

BRlfiO 

2 BROAD 

23 

BROr-'U 

3 

RUI LD 

2 

Bur.f! 

12 BUSINESS 

1 

BUSY 

23 

BUTTER 

1 

BUT 

E BUY 

2 

BY 

F 



C 

1 CALCl'LATE 

2 

CALL 

12 

CAW 

2 

CO'ipLAir! 

2 CO"-pLETE 

23 

COnCEDU 

12 

CnUDITinr: 

12 

COW CUE 0 

2 coon IDEM 

2 

CO?!TAI '■’! 

O 

COM Tl HUE 

2 

CARPI ACE 

1 CAORY 

2 

CASE 

i 

CATCH 

2 

CERTAi:' 

3 COAIO 

12 

C!!A?'nE 

12 

CHAHCE 

12 

CAREFUL 

3 CAODLE 

1 

CADD 

1 

CARE 

2 

CnARACTE; 

1 CIYMCE 

12 

CHOOSE 

2 

CIRCLE 

1 

Cnf.'TROL 

12 COPY 

12 

pop S' TPS'? 

i 

CORRECT 

23 

CAUSE 

1 CEASE 

2 

•vr.i ; 1 i..i 

1 

CEHTRF 

1 

C 1 TY 

1 CLAI 

2 

CLASS 

1 

CLEAU 

23 

CLFA’ 

25 CLEVER 

3 

clock 

1 

CLOSE 

2 

CLOfJO 

’ 1 COLD 

3 

COLLECT 

2 

COLOIiR 

1 

CORE 

I GO:' ''MAID 

12 

coiv^ni’ 

13 

COMPASS 

12 

CnULD 

R COROT 

12 

CnURAOE' 

1 

COURSE 

1 

COVER 

12 CRACK 

12 

C'‘»OSS 

12 

CROUD, 

1 

CUT 

12 COST 

12 





n 

1 DA’!AGE 

12 DAflGER 

1 DARE 

12 

IP 1 ■ f -y. 

t . . i 

E -!FEE'';EHCE 

1 DiFFEREHT 

3 DIFFICULT 

3 

rici: I'- ~ 

2 DECIPF. 

2 DECLARE 

2 DEED 

1 

f r%\j - 

9 n *r o 1 n r 

Am . • t }< 1 ! \ Um 

12 DESTROY 

2 nESTRUCTION 

1 


n n ! X A ^ ' r* r 

.» !./ ? X " t 1' "'.? 

1 D I V ! PF 

2 DO 

2 

ni GiLTY 

lA niA 

DIRECT 

12 DISAPPEAPA 

2 

nGLr''T 

1:2 Dn;:;,'’P 

1 nrDc^’n. 

>L ^ i v, . 1 " 

2 DESCR1 RE 

2 

DA.V 

1 DEAD 

23 DEAL 

12 DECAY 

12 

DET:'^ 

13 DEPT'’ 

1 npr:pf«n 

2 ■ HGLAY 

2 


1 4 n > ' V F 

1 ^ F% n n 

-A t “L f . 1 

17 r)?!R|YC. 

F 

DUTY 

1 DUST 

1 HAFC 

2 


E 

1 EACH 

13 riACLY 

h EART!-' • 

1 

E?'Pti! nE 

2 ENTER 

2 EOUAL 

3 FSCAPF 

2 

EVEnYOEF: 

1 EXACT 

2 3 EXA'HHE 

2 EXA'IPLE 

1 

EXPECT 

2 EXERCISE 

12 EXCEPT 

2 EXPERIENCE 

1 

EAGY 

3 E'^'CE 

12 EFFECT 

12 EITHER 

FJ 

ELECT 

2 ELECTRIC 

3 ELSE 

43 E' I P LOY 

2 

E'^PTY 

23 F''D 

1C E^AJOY 

2 ENOUGH 

34 

EVEf 

13 EVflHT 

1 F \f F •! 

4 EVERY 

A1 

EXPLM*’ 

2 EXPRESS 

12 Eye 

1 


F 

1 FACE 

12 FACT 

1- FAI L 

2 

FM^T 

23 FAIR 

13 FALL 

2 FA'H LY 

1 

FAf'CY 

12 FAR 

4 FAST 

-'■.3 FATE 

1 

F“youn 

12 FAULT 

12 FEAR 

17 FF FH _ 

2 

FEEL 

2 FELLO" 

1 FEl.' 

3 FIFH-D 

12 

FiniiT 

12 FIGURE 

1 FILL 

12 FIND 

2 

Flf'E 

3 FIRST 

13 FIT 

12 FIX 

12 

FLAG 

1 FLAT 

13 FLOH 

12 FLY 

2 

FOLC 

12 FOLLOl] 

2 FOOT 

1 FC.R 

F 

FORiltP 

2 FORCE 

12 pPREIGD . 

3 FfjRGF.T 

2 

FORr: 

12 FRA'^E 

1? FD^I’ADD 

3 free 

2 

FREEZE 

2 FRESI’ 

13 FRD^' 

F FRONT 

12 

FtJLFI L 

2 Fi’LL 

13 FURHISH 

2 FURTHER 

43 

FUTURE 

13 




G 

1 GAIH 

12 GAME 

13 GATE 

1 

GATHER 

12 GEHEPAL 

13 GEHEDDUS 

3 GENTLE 

3 

GET 

2 GOT 

2 GIPT 

1 GIVE 

2 

gave 

2 GLAD 

23 CLASS 

1 GO 

2 

GOOD 

3 GDAHD 

3 Gr'v-’E 
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$! PFTC MAIN 

. C P'''PC1AMPIE'^ TEXT P'^PCESSING tlSIf'G GP^MMATICAL ANALYSIS 

C^MMnN/NAnETS/Af.^F.TS(?^V 2)/NnTMTY/L M1^^GTN'^Y(15nO,^) 

’Orvm/App/ 1 cr UMT^P'Pnn ( 51 , a > /M’^o » nt/ l MP/HTEST/TEST/NAP'^A Y/APvQAY 

l(l^v2),SEAPCH(5Pn,P)/”SUFIX/SUFi X1(.F2,2) 

INTEGER, AL^ETS,’'CTr Y,t-fGRG,G!JF I Xl^'^ LANK, PnLLAP^APRAY, SEARCH, ONE/ 
lTMO,THnEH 
INTEGER A,'",F 
LOGICAL TEST 
lOniCAL TEKMFY 
PATA ,A, n,F/i’p",l!l^,lHF/ 

OAT.^ ^LANK/HOLLAR, !REC0R,,!SMT, LPTR,LLK/1H ,3inS$,4*o/ 

OATA Of!E,Tin, THREE, !MARK/1H1,1H2,1H3,1H / 

moo FORMOTCI 2/?.4(Al, ! 2)) 

1 0 01 FORMAT ( 4 ( 2AS , A3, A3 ) ) 

1003 FPn‘A0T(12AB) 

1515 FORMAT(2X,21AO) 

1517 FORMATS* THE CAN o.E FILL"'^ KM TO */* ENTRY ’i, ISX, *SENTENCE*7) 
1510 F0nMAT{lX,4A0^ 14) 

4<'rQ FPRMAT(50X,*FRAME ■fPR0S*//20(5PX,4AS/) ) 
conn FnRNAT(/2nX,*S5A^CH AR^O.Y IS' OVERFI-PI-'ING*) 

SOOl Fn,RHATC/20X,*CHECK ARRAY IS OVERFLPVM NG* ) 

6002 F0RMAT(2nX,*FRAME ARRAY IS OVERFLOWING*) 

6^03 F0n.HAT(/2OX,*ST0RE ARRAY IS OVERFLOW! ^^'G* ) 

0900 FORMATC* ERROR IN PICK’J^ ROUTINE , GRPUn ' FRA\MES NOT PROPERLY PIC 

’ IKE^*/) 

INP=65 

C I NPUT .0 1 CT I ONARY APn SUFF I X ENTR I ES 

REAPm03,({S5JFIXl(l,U),J = l,2), 1 = 1,52) 

REA^100n,KLPNT, ((ALP ETS(l,v)), J=l, 2), 1=1,25) 

on ion 1=1,20 

LPni NT=ALOETS(I .2) 

ALnETS(I,2)=KLPNT 
KLPNT=KLPNT+4*LP0iNT 
me CONTINUE 

L!M=KLPriT-l 
on 200 i=i,Ln4,4 
11=1+5 

200 REAPl'^01, (CPCTMRY(L,U),U=1,4),L=1,I1) 

C INITIALISATION OF THE APPAY FOR STORING THE SENTENCE 

1 ' on 3'"e 1=1,51 



nEf'OTES THE EMD OF ALL 




TO 3 '^' 

300 '.■lOl'HU J) = nL/,>'K 

TEXT '’EA^ I'-' (SRXTEXCE nro! f'?if fn J!! 
TEXT 

2 CALL rU''!T 

IFCV'OnnCl^D.En.COLLAfV) COTO 15 
IF(IC">ni’T.r:^'.^) GOTO 2 
JG('T=JSrT+l 




ACRAYCiJSf'T, l)-ICECnO+l 
no 1400 1 = 1, ICOJJf'T 
!r.EcnR=iREcnn+i 
f FdRECOR.GT.SDO) GOTO 5000 
C CHECK FOR DIMEHSIOn OVERFLOH OF ’SEARCH' 

C irTXiT TEXT STOREO FOR LATER REFEREHCF 

DO 14'11 0=1,0 

ii»-Ri SEA^CH(iRncrR,j)=i'nRn(i,j) 

140 0 Cr:!Tlf!f)E 

ARRAY (JSHT ?)=IRFCOR 

C CHECK IF inoHT TEXYT HAS HORF THAH 10 SEHTEHCESCIHCLUOI HG nUESTlOH 
C SEf.'TEf'CF.) 

I FCJSf'T. ED.lO.AfT'. (.r'OT.TEST) )GO TO 1770 
C CHECK FOR Tf^E PRESE”OE OF OUESTIOH SFR'TERCE 

IF(,;.’^T.TEST) GOTO I 

C GET THE GRAfRIATICAL A.OALYSfS OF THE O’jESTin?! SEHTEf.'CE AHD ITS 
C GROUP FRAR^EE 

CALL A'lnOTYCO) 

CALL PICKUP 

C STORE THE GROUP FRA'^E OF THE EHT^Y IH CHECK FROU THE GROUPS OF T 
C HE nUESTlOH SEHTEHCE 

DO 1500 1=1, ICOUHT 
IF(MORD(!,l).f>E.I'1ARK) GOTO 1500 
no 2000 J=l,Kf!PP 
IF(I.GT.GROUPL(U,2)) GOTO 2000 
GOTO 2001 

2000 COHTIHHE 

2001 IT1=GR0UPL(J,1) 

|T2»GRnUPL(J,2)-l 

IGC=0 

DO 2002 K=IT1, !T2 
IGC=IG(>1 

IFdGC.GT.lO) GPTR 5001 

C CHECK FOR THE niMEHSlOH OVERFLOW OF 'CHFCK' 

2002 CHECK(IGC)=HORD(K,4) 

C CHECK IF IS THE LAST ','000 I” THE OUESTlOf’ SEHTEHCE 
|F(I .EG. ! COURT) fiOTO 2003 

C STORE THE '*00.0 THAT FOLLOO.S IF’ THE OUESTlOf SEHTEf'CE 
REG[Kl)=l-mRD(I+l,l) 

RF.GN(2)=U0Rn( Kl, 2) 

BEGM(3)=V.fORDC!+l,3) 



20^3 


(>5 


!C1=I-1G 
! r!? = • +1 

lF(iCirLE*0) {Cl“l 
lF(5C2.f5T. rCOUNT) IC2=1C0UMT 
C STORE THE GRAMMAR CODE OF THE IN 'LOC* 

LOC=WRn(I^U) 

GOTO 2500 

1500 CONTINUE 

C STORE T'!E TEST FRA/'E OF hoRDS IN FRAME' (CHOOSE ONLY GLASS 1 OR 

C CLASS 2 OR CLASS 3 VIOR^S ONLY) 

2520 no 1501 !=!C1, iC2 

! F (WORD ( 1, 1), EO. ! MARK) GOTO 1501 

! F<Vron{ 1 , 4) . E'^. '''OE.-v'.woRnC I ,4) . EO. THO.OR.MORDC 1 , 4) .EO. THREE) 
IG'^TO 1402 
goto 15S1 . 

14C'2 LPTR = LnT:->-i-l 

I F(L2T”'.0T. 20) on'r 5002 

C CWECY FOTP: THE O'-’OTSinN OVERFLOVrOF 'FRAME' 

DO 1503 J=X,4 

1503 FRA''iE(LOTo., j)=wnon(:,u} 

1501 CONTINUE 

lO .5=1 4) 1=1 I 

C INITIALISE PorfJTERS^^nO '^'Itput RESPONSES OF THE PRESENT TEXT 
LLi<=0 

!SNT=vJSNT-l 
DO 1111 1=1, JSNT 
1111 TAFLE(!'' = 0 

C STORE. THE NO. OF MPRns I'i EACH SENTENCE THAT PROVIDE A MATCH TO 
C THE TEST FRAS’E OF ’tOROO !'.! 'TAGLE' 

DO 1504 L=l, SSNT 
IGNT=C 

KK1=AR.RAY( L, l.> 

KK2=ARRAY(l,2) 

DC 1511 L[<=1/LPTR 
DO 15^5 I = Y.!C 1 ,KK 2 

00 .1=1,3 

1 FCSEARCKC I, J)«OE.FRA'’F.(L!<,a) ) GOTO 1505 
1505 CONTINUE 

!CNT=IGNT+1 
TARLE(L)=!ONT 
GOy^ 1511 
1505 CONTINUE 
1511 CONTI h'je 

1504 CONTINUE 

C OETERMINE THE ^'lAX! Ml''’’. !A"RO t.^atCH AMONR hHE SENTENCES 
MAX=TA0LEC1) 
no IS 00 js2 iSNT 

TpCTAPLEd KGT.MAX) MAX=TAOLEn) 

IBOC CONTINUE 

RO 15Q2 1=1, ISHT 



! FCTAPLEd ) j-'E/lAX) GOT'"' ir,n2 

C GET THE GGAHmaTICAL AHAIYSIS A^’G THE GROUP FRAMES OF THE SELECTEH 
C sSEOTENCE 

CALL A'^PGTYCi) 

CALL PiCXUP 

C PASS 1 Ar'ALYSl f' TO RETEP''''ir>E THE RES! R EH RESPONSE 
fHEY=n 

TEKHEY=, FALSE. 

19 00 00 15 07 K=l^ iCOUf’'T 

fFTLOe.Ea.THREElGO TO IBRO 
IF(!''PR0CK,4).ME.L0C) GOTO 1507 
I F ( LOG. EO.O^’E) GOTO 

C AHALYsis FOR THE GRAAPAAR CORE OF CLASS 2 AND CLASS 4 
G^ TO 1080 

C Ar'ALYSis POR THE CODE OF CLASS 3 

1090 1 F( ( I HEY. EG. 1) . AN^. (W:^RP(K, 4) . EQ. Tl'iO.OR.WORDCK, 4) i EO.. THREE)) 

IG'** T"' loS'-' 

!F('Y0Rn(!<,4) .F.n.TWP.nR.MORn(.K/4).Ea.THREE)GO TO 1900 
Qp TO 15P7 

icon OP lOOl LT/!=1^ KYPp 

fFCKlGT.ORPUPLC LSZ^ 20)GO TO 1901 
LKP=GRr.UPL(LZZ,2) 

!F(W0RP(LKP/4).PE.0i’E)O- TO 1507 
00 1902 KLZ=1,3 

IF(nEGN(XLZ).NE.’*^'RPCL::'',KL7,))G0 TO 150 7 
1902 CONTINUE 

C ANALYSIS FOP CLASS 3 SL’CCEEPS IN FIRST PASS 
TERHEY»,TRUE. 

GO TO 1680 . 

1001 CONTINUE 

PRINT RPOO' 

STOP 

C ANALYSIS FOP THE GRAMMA^. C^'^^E OF CLASS 1 FOR ENTRY 

3000 ! F(IHEY.EO.l) GOTO lOR", 

00 3001 LZZ=l, KPop 
IFCK.GT.GROUPLCLZZy 2)) Goto 3001 
LKPl=GRnUPL(LZ7„l) 

LKP2=GO0UPL(LZ>:/2) 

IF(W0no(LKP2,4).:'E,0ME) GOTO 1507 
GOTO 30'''4 . 

3001 COMTifJUE 

PR I HTOOPO • 

STOP 

3004 00 3nr!2 XLZ=1, I CO 

IF(CHEC?aKLZ).E0.A.O ':.CPEC'<(KLZ).Ea»n.OR.CHECK(KLZ).EO.F)GOTO 3002 
no 3^03 KLLZ“LKP1/L!<P2 

IF(CHECK(!<LZ).?-T:.M0RP(KLlZ/4)) QPTO 3PG3 . 

C ANALYSIS FOP CLASS 1 SUCCEEPS IN THE FIRST PASS ■ 

TEKHEY=.TRUE. 

GOTO 1680 
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COf!T!M!lE 
3 ' ^2 CnWTIMUE 
HOT- 15'^7 

C CHECK IF CELECTEf^ HESP'^MSF IS MOT ALREADY IN 'TEST FRAME^ 
lean PO L‘1=1,LPTC 

no 1508 Lf<=l,4 

IF(V|O0n(K, LK),NE.FOAMS(LM,L!<)) GOTO 1500 
15'^8 COMTINUE 
G'^TO 1507 
1500 COMTIflUE 

C IF THE HESPOriSE IS THE FIRST OME STORE IT OIRECTLY 
IF(LLK.EO,o) GOTO 1492 

C CHECK if' THE SELECTE"^ RESPONSE HAS ALREADY DEEfl TAKEN CARE OF 
''O 1531 in = l,LLK 
no 1513 JJ.J=ly3 

lF(!/rnn(j<,iJdJ).f:E,STnRE(lM^iJUJ)) GOTO 1531 
1513 CnMTIKL'E 
0^X0 1597 
1531 CONTI fiuF. 

1402 LLK=LLK+1 

!F(LLK.GT.299) G^T" 5^^3 

C CHECJ Fnn THE niMENSinp! OVERFISH OF ' ST-'^F.’ 

IF(W0Rn(K,4). E0.0!'E)0" TO 17DR 
GO TO 1703 

C fF THE SELECTED RFPi-'Of^SE IS CLASS 1 ’YORO^theH C^'LLECT 

C ALL ITS nUALIFlERSCCLASS 3 WORDS) FROM THE SELECTEO SENTENCE 

1700 MTST=K 

1701 MTST=MTST-1 

t F(WORD(MTST, 4).r'E.THRF.E)Gn TO 17''3 
DO 17^2 LK=1,4 

1702 STOREdLK, LK)='’OR'' (MTSTy LK) 

STORECLLK, 5)=n 

LLK=LLK+1 

IF(LLK.GT. 200) GOTO 5003 
GO TO 1701 

C RE THE RESPONSE F^R PRINTING 

1703 DO 1510 LK=1,4 
1510 STORECLLK, LK)=WO'^RCK, LK) 

ST0RECLLK,5)=1 
1507 CONTI Nb’F. 

IFClHEY.En.DCO TO IS '2 

IF(LnC.EO,.THREE.ANn.(.NOT.TEKHEY))GO Tn lO'^S 
IF(LOC.En.nNE.Ar!D. (.NOT.TEKHEY)) GOTO 1905 
C GOTO ANALYSE OTHF-O TEXT SENTENCES THAT PROVIDE MAX WORD HATCH 
GOTn 1002 

C PASS 1 ANALYSIS FIX T!’F RESPONSE FAILS 

C no PASS 2 ANALYSIS COLLECTING ALL WOD^S OF THE SA^'*E CATEGORV AO 
C THE ENTRY OF THE QUESTION SENTENCE 
1905 IHEY=1 
GOTO IQOO 
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CONTI MfJE 

C "’0!MT THE OUESTfOf SE^'TENCE ANO THE SELECTE'^ RESf^OHSES FOTR IT 
LK1=ARRAY(J,SFT, 1 ) 

LK2=ARr.AY(.lSHT^2) 

■:^R1 f!T1515^ ( CSEARCH( ! 3)^ I = LK1, LK,2) 

ORIf'TlSlY 

no 1510 !=l,LL-:< 

1510 PRIHT1518, (STnr:E(!,J),U=l,5) 

C i NlTiALISATlOf’ 00 oni'sj^n*^ /.FTEH THE OROVESSINC OF A TEXT TO COHSI 
C OEnOTHER TEXTS ALSO • 

1770 JSr^T=^ 

IREGnO=0 
LOTRaP 
GOTO 1 

C ERROO MESSAGES T'" ^ETECT PIMENSIOM OVERFLOW* 

5000 PR! KTSnnr' 

GOTO 15 

5r,^l pH) ^!Tr;|~,r;i 

GOTO 15 

50C2 PRINTPOOP. 

GOTO 15 

5003 PRINTS '^03 

15 STOP 
EfP 

$inFTC PICKUP 

SUPROOJTIPE PICKUP 

C THIS RoUTIf'F. ^-ICKG THE opoijp FRAMES Op A SF.MTEHCE ACCORDING To 
C SPECIFIC GRA'PMAP FRA'|ES 

QP-MM.nH/HGR"'''o/KHPP,G'"“'MpL(25^ 2) 

C'^MMON /M 'op.^/ ! 

INTEGER GPOUPL 
INTEGER H,G, M 
INTEGER !^^ORPvGROiJP(25) 

INTEGER A/P,F, 0 HE,T!r 

DATA A, B, Fv ONE^ T:.'0/1!!A, IHO, IHF^ IHl^ 1H2/ 

DATA H,Gy I !/lHH,lHG,lPI/ 

102 F0RHAT(* GROUP FRAMES OF THE SEMTEHCE*/* GROUPS MOROS */) 
imn FORMATC* ERROR IN GOA’’My\T I CAL ANALYSIS *) 

KNP=0 

IC=1 

C SCAN THE SENTENCE TO SEPARATE IT INTO p.ppijPS ACCOROrNG TO SPECIFI 

C FRAMES 

101 DO 10 1 = 1 I COUNT 

IF(W0Rn(U4) .Ea.A)G0 TO 11 
IF(WORP(U4).EO,B)GO TO 12 
IF(WORn( 1,4) .Ea.F)G0 TO 11 

I F ( I . E n . 1 . AN P . { . NO T . (WO R "^ ( ! , 4 ) . EO . H . o R . !>,f ORP ( ! ^ 4 ) . EQ . G . OR . 'lo p n ( 1 ^ 4 ) 
l.EQ.ll )))G0 TO 11 

C GROUP OF I'lORPS NOT FALLING INTO ANY OF THE SPEC I F I ED GRAMMAR FRAME 
KMP«KNP+1 



!!;IBFTC IfJPlJT 

C LEXICnri FOR THE PROGRAJ.’MEO TEXT 1HP?IT 
SHP.RO!!Tlf!E ir'PlJT 

DIHEHOIOH TAR(15),LI.ME(f'n)^LnCAL(l'l) 

Cn'finH/riTEST/TEST 

COfflON/ff 'ORn/ I CnfF'T/.'ORnC 51,<'O/f^P0l HT/ I 
iriTEGER HARHF 

I ^!TEGER RPAREn^ BLANK/ TCH/ COMMA/ PER ! OD, TAB/ CHRCHT/'|ORD/STAR/ CHK 

LOGICAL LOG 
logical TECT 

DATA ‘1AX/ LPAREN/ RPAREN/ H. LAMK/ COMMA/ PER 1 00/ STAR/ N ! L 
l/65/lHC/lH)/l” /1H//1H./1H*/1HN/ 

OATA TAn/lH*/ 7Ji>/ 1H=/ IH-"/ IH// IHO/ IHl/ 1H2/ 1H3/ 1H4/ 1H5/ 1H5/ 1H7 
1/1H8/1!:0/ 

DATA HASHF/IM / 
incfi Fn'^.riATCB'.'X/POAi) 

10''^! FORMAT ( 3. ''■0) 

1002 FORMAT (B'-^Al) 

1003 FORMATdX/inAl) 

lO'^S FORMATC* LENGTH OF '’oRn ’ */inAl/* ' EXCEEDS IB CHARACTERS*/ 

1* LENGTH TR!iNCATED TO 10 CHARACTERS AND PROCESSING PROCEEDS*) 
inOS FORMATC* rRJMBER OF MOROS If SENTENCE EXCEEOS 5o. EXECUTION 
IDELETED .*) 

SWITCH® 1 
TEST®. FALSE. 

LOG®* TRUE. 

C SCAN THE INPUT CARD CHARACTERli! SE 

1 |NP=INP+1 . 

C CHECK FOO END OF AW INPUT CARr» 

IF(INP.GT.MAX)GO TO 13 

I F ( L 1 N E ( I N P ) . EO . L PA^ EN . 0 . L I E < I N . EO,. 0 PAR EM ) L I NEC I N P) = B LANK 
GO TO C2/3/4/5)/SV.!|TCK 

C PEniODS OR CO'IMA AT THE BEGINNIOG OF TEXT IGNORED 

2 IF(LIMECn'P).F.O.BLANK."'R.LINEC!NP).EO.COMMA)GO TO 1 

IFCLlHECIf*P).EO..PER|DP)GD TO 1 

21 SW1TCM=? 

C CHECK IF IMP'*T CHA'^ACTE^ ?S AN! ALPHABET do SPECIAL CHARACTER 
DO 1001=115 

I FCLI NECl HP) . EO.TABC ! ))SV!I TCP=3 
100 CONTINUE 

GO TO S 

C GETTING alphabetic CHARACTERS/ CHECK FOR END OF A WORO 

3 IFCLlNECinD>.EO.BLANK)DO T"' 7 
IFCLINECINP).EQ..BERIOO.OR.L!NECINR).En.COMMA)GO TO B 
GO TO 21 

C GETTING ALPHANUMERIC CHARACTERS/ CHECK FOR E^'R OF A WORD 

4 IFCLINE(INP). EO,r,LAMK)GO TO 7 
1FCLINECINP).E0.G0MMA)G0 TO B 
IFCL!r‘E(INP).En.PER!OD)G" TO 12 
GO TO fi 



rt 


0 

5 


APT'SE A WOED 


■•SHiP 'SUGCBSSI-VE BLAIKS OR C 
I F C L ! ( I . EO,. 3 LANK) OH Tn' 

IF(LlNE(INP).En.C0f«1A.P3.L!^'E(l'iP.),E0.PER10P)Gn PI 
on TO 21 

CHECK pnq HORE THAi' 13 CP’ARACTERS IH A V^'ORP 
I FCLOG)CHRCHT=CHRC^^T+l 
IF(CHPCMT.GT.in)LOG=.FAL$E. 

LnCAL(aHRCHT) = LIHE(lf'^) 

GO TO 1 


7 IFC.fOT. LnG)GHRCHT=CHRCA!T-l 

I F(.NGT.LPG)PR!NT 1335, ( L^CALC I ) , I =1/ CHRCHT) 

lF(CHRCMT.En.r:)Q.i jn 71 

LOGs.TRHE, 

C STORE TH^HORP ^EA'^ 

icmir'T=! cc<p:t+i 

! F(i cnuHT.nT.5n)G''« r*' on 

V'RITECGR, 1330) (L'PCAK I ), l=l,CHRCHT) 

REAR (qn, 1001 ) 0/IRR3 ( 1 CRRRIT, I ) , I =1, 3) 
fF(SWITCH.E0.3)WRR(! GnUHT,4) = 5 

C CHECK FRO THE o-.?-n RUHCH^SPECI AL ’’ARKER FOR THE OLAHK EHTRY 
C SEHTEHCE REAR) 

I F (l'/ORR( 1 COHMT, 1) . ER. MASHF)TFST=.TRUE. 

I F (WRRR ( I COUNT, 1 ) . EQ. H/.SM7 :( i COU»«T, 4 ) = 3 

C DO DICTIONARY LOOfAUP FOR THE HRESENT '-■»ORD REOD 

t F(V/0Rn( 1 COUNT, 4) . EG. PLANK) CALL LOOKU^'C I COUNT) 

CHRCHT=0 

71 IFCLINEdNP).. EO.COMMO')G^ TO 0 

C LOOKING FOR END OF A SENTENCE 

!F(LlNE(INP).EO.PERiOf^)0^ T'* 11 

SWITCH*4 

GO TO 1 

G Vif)RD(IC0UNT+2,l) = L!NE(L’P) 

GO TO 7 

ni !■y^RO(lCPUNT+l,l) = L!^^E(f'■!^) 

GO TO 71 
9 SWITCH® 4 

GO TO 1 

10 !-?ORD(|COUNT+1,1)®L!HF.(!NP) 

GO TO 0 

11 RETURN 

12 IF(LINE(INP+l).En.P.LANK)Gn P. 

GO TO 6 

C REAO A FRESH CARD AHR CfiECK FOn PRESENCE OF COM'^ENT CAROSCA * 

13 READ 1002, CHK, (LIf’EC! ), !=1, MAX) 

PRINT 1303, CLIHECI ),!®1, ‘LAX) 

IF(STAR.EO.CHK)GP TO 13 

|NP=0 , 

GO TO 1 

98 PRI NT lOOG : 

STOP 


INC 



TZ 


$1 DFTC OUTPUT 

C THIS ROUTINE PRINTS THE CO’'iTENTS OF THE '.ilOPD ARRAY SIX PEP LINE 
SUnPnijTIME OfJTPUT 

QnMU'^r 7 M!'!n'^n / 1 C 0 Uf:T^unn.^( 5 l^p) 

IPTEPER V-’CRP 
lonc Fnn."')AT(//ix, iiAE) 

1001 FnPAlAT(lXy 7 (A 0 , 12 X)) 
no 10'“: 1 = 1, 1 conoT, 7 
K'<=l+o 

IFCKK.ST, !CniinT)KK=lCOH‘'T 

POI^'T lonc, C(’-^ 0 .nnCK,J),U=l, 3 ),K=!,KK) 
l-OQ PO.l PT XPOl, (VI'^R0(!<,4), !C=1,K!0 
RETUOr? 


EH-n 


$IBFTC LO'^KUP 

C niCTlOHARY LOOKUP FO^ THE GIVEN VIORO (ARGUMENT) 

SUBROUTINE LOOKUP(N) 

CPHMON/N''''^Rn/ 1 COUNT, S 51, E ) /npOnT/POnTC 3) /NAOETS/A LOETS (26, 2) / N 

lOTNRY/LIM, DCTHnY(15''n, 4)/f’FOUNn/FOUNo 
COMMOM/MVALUE/! VALI 'E 

INTEGER L'ORO, ROOT, TEMP, ALRETS,nCTNRY 
LOGICAL FOUr'R 
icon FORHATCAS) 
loni FORMAT(Al) 

|VALUF=n 


c 

300 

C 

c 

6 

C 



1 

c 

2 


|F(N.En.^)GO TO 6 

LOOKUP CALLER FRO^-^ INPl’T TO F 1 NR A MATCH TO GIVEN Uncn ITSELF 

no 3 nn 1 = 1,3 

RonTd )=uonn(M,n 

LOOKUP CALLER FROM SUFIX ROUTINE TO F I r^R A MATCH TO RpOT oF THE 
GIVEN WORR 

WRITE(09,10nn)RR0T(l) 

REAR (99, 1001 )TEHn 

RETERHINE fi’E LPUTS OF THE RICTIOMARY SCAN 

LIM1=1 
LrM2=L1M 
DO ion 1=1,25 

IF(ALRETS(l,l).En.TE‘1P)GO TO 1 
CONTINUE 

LIM2=ALGETS(1,2)-1 


GO TO 2 

LfMi=ALRETS(!,2) 

IF(I.Ea.25)Qn TO 2 
LIM2=ALBETS(I+1,2)-1 

SEARCH THE RICTIONARY IN THE RETERMINER LIMITS 
no 200 1 = L1M1,LIM2 

IFCRnOT(l).NE,RCTNRY(!,l))GO TO 200 
IF(ROOT<2).NE.nCTNRY(!,2))GO TO 200 
IF(ROnT(3).En.RCTMRY(r/3))GO TO 3 





2fr. c;^r'Ti?:ui! 

C nrCTI^HA'^Y SR.'^^CH FA![F'" 

FALSE . 

C SFA':iCf! S!JCCFF'^S,SAVE FEA-IMAA ^F AlCTin.MAAY F^T'^YY 

3 F’'t!ir!n=.TnuE. 

I FCfi.El. 1 VAL5*E^nCTr*-;Y(i,4) 

I F(FJ,Ef}. ''■):■ ETUn- ’ 

4 VFnAn(H,4)-")CTf’AY(l,4) 
aETin.f* 

Efvn 

$!nFTC STRIP 

C THIS RPlJTIfiE STRIPS H SilAPACTERS FRPf-.'^ !‘'ORP(H) ANP SAVES IT IM EMPI 
SHPRPf.'TI HE STPIP('i,H> 
nn^EHSIPP VIP^^(El/S),n'^'''T(3),TEMP(lS) 

CPMMPH/MV'PPP/! CPUHT/VfSpp/PROPT/nO'^T/NEP 1 ''*P:/EtiP| VS/HTEMP/TEMP 
If'TERF.:^ ’ rPP^PiPPT^EHP! Pp, TEMP, LANK 
PATA SLAA'K/lf! / 
l.-’nr' FOPMAT(3AS) 

FPpfAATQSAl ) 

Ippj? FnpMATarx/iEAi) 

l!RI TEfPS, l"Pr > 3) 

REAP(«in^i^Pl) (TEMP(K),?<-1,1P5 

K1*S 

no no |i=i^lP 

|F<TEHP(I).F.P.PLAHK)PS Tn 1 
K1»K1+1 

IPP CONTINUE 
1 K2=K1-V 

1F(K2.LE,S) P^TO 2 
C RE^'SVEP CHAPACTERS STPPE"' ! '■’ 

K3=K2+1 

!rxlTE(SS/lCP2)(TEf1PC!), 1=1,K2) 

REAPOnyl^PC) (PPSTCI ), ! = 1,3) 

V^RlTECnS, 1"'02) CTEHP(5 [ = K3,K53 

REA'^(Srs,10''P) EHPi HP 

PETUPH 

C STRIPPIHS H CHAPACTEPS F’'^T POSSIPLE 

2 pnnT(l)=l'’ppn(:Vl) 

POnT(2)=P'ORP(H/2) 

RpnTY3^’»?h'Pp^(H/3) 

P.ETHP^' 

ENH 

5 I PFTC A”^^ 

C VhIS R0-’;T!HE PELETES ’■ P'-PPPACTEPS Pv^'P AP^^S A A?PRn CHAP OF H 
C CHAPACTE -%*’) P ‘ V T: '" aP- 'T 

SUPpOllTIPE APP (•'-V ^'/ R'''AP) 

PIHEHSIOH TEf'^PCiP), SO"^ (p ) A 
.Cn»i'1ON/A'R00T/P0PTC3) 



CnMMn'-'/ fn*' 2 / K ^> / f 'TF'^ n»/TFMf: 

ir'TF.GE '"'-OT 
!r’TF^E'"v non, .'''“' 

l^op FOOMATCAO) 

FORMAT (^Al) • 
lO-a FOOMAT(3AF) 

1003 FnR‘Vj(i-/.2) 

10''4 F^P.'AAT(XrX/irAl) 

'miTE(00,irn2)(ROnT(! ), !=1,3) 

OEOn (fiQ, "if^3) (TFf'pf I I aj ^ 1 

C K2 SPECIFIES MU^’TEO "!F CHAPACTP^S !?* POnj 
f>2=K2 

C '^ELETIor' op CHAPACTFOS FPnff 

N 2 =P 2 -ri 

rF(W.EO..O)CO T'O 1 
C C'-AAR PEI^’O AOPE^ TO 'AOOJ 

I TF f 00 . 1 THAO 

RHAD(n0^1-''’l)(SnRn ), 
no 1 = 1 , a; 

N?.=fi2+1 

1"0 TP1P(M2)=S0p(| ) 

1 !riiTE(00,lO04) (TE’^f^d ), !“l,n2) 

REA'^(00/l''n2) (ROOK! ) j=i,3) 

REP.lRf 

ENP 

SICFTC REPLAE 

C THIS ROHTP'E SAVES CO''TEf.!TS OF FIRST AROYMEHT ! SEC'^PO ARRUMEPT 
SlfOROUTlME RE"'LAEd’ICHT,ALEFT) 

IMTEREO n!Ri!T(3),AI-EFT(3) 
m IOC 1 = 1,3 
IPO ALEFTd )=R!CHT(1 ) 

RETURP 
ENR . 

SI3FTC SUFFIX 

C ROUTIHE FOR SUFFIX APALYSIS K'ORn(H) 

SURROUTIf^E SUFIXCrO 

COUMON/I'HO'^P/I Cr''JPT,Ur"''' C51, '^)/P^onT/^no-r(3)/ppp| m/EPnifiO/ 
lHK2/K2/NTEMP/TEf1P/''SUFr':/CATIXl 
COHMOP /MF'^UPD/FOUP"' 

Il'TEGER TEMPI (4) 

IPTECER TAR(7) 

INTEGER '••r0R0,R0OT,EPn!f'G,nLAPK,TE'^^(10), lEM^CO), !TEMP(3) 
l,SUF!Xl(52/2)dTAO(C) 

LOGICAL FOUP.'^ 

oaTA TAR/53, 50, 30, 17, 4^ 2,1/ 

RATA ITA0/1H1,1H2,1H3,1H4,1'!5,1H0,1H7,1HC/ 

RATA ! EMP/1HE,1HY, 3HITY,1U^-, 3H!RE, 2H0F,1HL, 2HLE, 2HLA/ 

RATA RLAUK/IH / 
inno F'^PAXAT{3AS) 

IQCl FORMAT (18A1) 



7S 


ir-r,2 Fnn.HAT(inx/iPAi) 

1.^05 

inp4 FOi^ATfA?) 

l'^r'5 FOr^MATC* E'^.nnn, !?■! action-' COO?^ of THF 05JFFIX 
ViOiTF( 00 ,ir,;r:tl) I ), != 1 ^ 3 ) 

REA'^COO^l'^Ol) (Te*-^(I), 1 = 1,10) 

M!;f«=7 

C SUFFIXES PICXE^' If OROUPS (MUM) FPP ANALYSIS 

1 ^'UM=^’UH-l 

I F(^-'!1M. EH. 0)RETUnr' 

C OETEPA'<INE THE LIMITS OF P^'^ESEHT OROUP op SUFFIXES 

LIM2=TAn(HI}M)-l 
L!M1=TAP(HUM+1) 

K2=H!j'1 

C SEPARATE THE SUFFIX AHO POOT OF THE El! VE^'' HOPS 
PO 100 !=i,ir 
Kl-lf-*"! 

IF(TF..MP<Kl).EO.nLA.U!<)S^ T^ 

IF(HUM.En.K2)K3=Kl 

K2=K2-1 

IF(K2, EQ. ■'")GO TO 2 
100 COMTIMUE 

GO TO 1 

2 K2=K1-1 

if(k2. le.dgo to 1 
wniTE(09,lon2)(TEM.P(! ), !=1, K2) 

REAP(00,lP0O) (O'^OId ), 1=1,3) 

WRITEOO, 1P02) (TEMP (!),! =1(1, KT) 

READ (00/ 1000) EHOJ UG 
C SAvi THe 'rOOT 'of THE Mppp 

CALL REPLAE(ROPT, ITFfiP) 

C SEARCH THE SUFFIXES HITHIH THE L!*MTS 

DO 200 I=LIM1,LIM2 


IF(ENDIMG.EQ.SUFIX1(!,1))G0 TO 4 
200 COMTH'UE 

C GROUP SELECTED HOT HAVIMG A MATVH TO THE SUFFIX OF THE HOpn 
GO TO 1 

4 WRITE(90,inr!n)SUFIXl(l/2) 

C GROUO HAS A MATCH, SAVE ITS CODE AMD ACTIOri COOES 

READ(09/1004)!a'OP.d(U,4) 

READ(9f)/lC03)(TEMPl(J)/J=l/4) 

C CHECK IF SIFFIX MATCHED IS OF ' SIOH,LAD,VE' 
IFd.EO.oJGO TO 14 
IFd .Ea.28)Gn TO 15 
IFd .E0.45)G0 TO IR 

C SUFFIX IS HOT ONE OF SPECIAL CATEGORY 

no 300 J=l,4 

C CHECK FOR ACT+f)H CODES of THE SUFFIX 

IF(TEMPl(J).EO.DLAHK)Gn TO 3^0 

no 400 1=1/0. 
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C '^RA^’CH TO ONE OF THE ACT! Of’ COOE-S ’^ETO'^‘11 

IF(TEf1Pl(J),Ea, ITAn(L))C0 TO f 5, 0, 7, r>^ 0^ 10^ 11, 12) , L 

400 CONTI HUE 

CO TO 20 

C ACTION CODE ’1' 

5 CALL LOnKUP(O) 

IF(FnUMO)GO TO 17 
GO TO 13 

C ACT+ON COOE ’2' 

6 CALL AOnCO,!, lEMPCD) 

GO TO 5 

C ACT+ON code '3' 

7 CALL AOO(a,l, !ENP(2)) 

GO TO 5 

C ACT+Or< COOE 4 

8 CALL AOO(1, 0, 0) 

GO TO 5 

C ACTION CODE 5 

9 CALL AOOd,!, I E-1P(1)) 

GO TO 5 

C ACTION COOE B 

10 CALL AOD(l,l, IEMPC2)) 

GO TO 5 

C ACT+ON CODE 7 

11 CALL ADD(0,3, I FHP(3)) 

GO TO 5 

C ACT+OM CODE 0 

12 CALL ADn(0,l, I E'1P<4)) 

GO TO 5 

13 CALL REPLAE(ITEMP,n00T) 

300 CONTINUE 

C sVfFI x" 'J^IOH’ PROCESSED 

14 CALL AO0(0,3,!EMP(5)) 

CALL LOOKUPCO) 

IF CFO UNO) GO TO 17 
CALL REPLAE(!TE?ir,ROOT) 

CALL AOnCl, 3,1 EMPC5)) 

GO TO 19 

C SUFFIX LAP PROCESSED 

15 CALL APr)(0,l,IEMP(7)) 

CALL LOOKUPCO) 

IF (FOUND) GO TO 17 
CALL REPLAE(1TFA1P,R00T) 

CALL Ann(0,2, lEflPCB)) 

CALL LOOKUPCO) 

|F(FnUND)Gn TO 17 
CALL REPLAEClTEf.’lP, ROOT) 

CALL AnD(0,2,l E^4PC9)) 

GO TO 19 



C ■‘>UFF1X VE PROCESSE’^ 

15 CALL ADR(0,2, lEMP(F)) 

m TO 19 


CnHMRr7*JVALUE/! VALL’E 

17 1 PCI VALUE. EQ, ORETIJRN 

1 F (Wnpn (N^ 4) . EH. I VALUE)RETURP 

C CHOOSE THE ! PTERSECTIOr* OF SUFFI X CORE AMD DICTIOPARY CODE 
C AS THE GRA’f-lAD CO^E OF THE OP/Ef! WORO 

l'RITE(99^1O00)vrRo(r.!^4) 

READ(99,l'^01)Jll,ulJ> 

IFCUia.EQ.RLAM'ORETtJRM 

I F ( J 1 1 . EC . I VA LU E . D. . J 1 2 . EO . I VA LU E ) V'fOO^ ( fi, 4 ) = I V A LU E 

18 RETURN 

19 CALL LOOKUP (9) 

IF (FOUND) GO TO 17 


GO TO 18 

C ACTION CODES NOT ONE op THE' 8 CORES FIXE"' 

20 PRINT 1005, ENO IMG 
STOP 
END 

$inFTC AHOGTY 

C THIS ROUTINE REMOVES GRA^LMATICAL CODE AMDIG'MTIES 
SUBROUTINE AMDGTYCNNN) 

C0NM^^7^!EDI^'G/EN'^ING 

COMMON/NHORD/I CnUNT,70RD(51,6)/NABETS/ALnETS<:25,2) 

CO MMO M / NA R R A Y/ A R R A Y ( 1 % 2 ) , 5 EA R CH ( 5 0 0 , 5 ) 

INTEGER S, I MG, END IMG 

I NTEGED V'Cno, ALP ETS, BLANK, THERE, H,0!D,G,TA^( 7), D'^P, "1 L, A'^ME,nME3 
1THREE1,A,0NF.,T70,THREE 
H'TEGED. FOUR 


INTEGER DF,D ,F 
INTEGER ONE2,T701 
INTEGER THREE4 
INTEGER ARRAY, SEARCH 
INTEGER THAT 
INTEGER EJ,E 
INTEGER TW03 
DATA S, ING/1HS,3HIMG/ 

DATA TAB/4HWHEN, 5HIa/HERE, 3HWHY, 3HH^’';, 3H1YHO, SH'IH I CH, 4HMHAT/ 

DATA FCUR/1H4/ 

DATA BLANK, THERE,H, D I D, G, N! L, A^ME,0fDR3, THREE!, R,Omp^ j’-ro, THREE/lw 
ISHTHERE, IHH, 3HDI D, IHG, IHH, 2HA1, 2H13, 2H31, IHA, IHl, 1K2, 1H3/ 

DATA BF,D/2HrF,lHB/ 

DATA F/IHF/ 

DATA nNE2,'n‘/01/2H12, 2H21/ 

DATA ll/lHI/ 

DATA THREE4/2H54/ 

DATA THAT/4HTHAT/ 

DATA EJ,E/2HEJ,1HE/ 

DATA ■nr.3/2H23/ 
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FnRHATCl2AR) 
ir04 FORMATCBAl) 

2r«nn Fnnf<AT(2f!X^*AFTER HI CT 10 MARY LOOK'P ALONE*'/) 

2^1'^ FORHAT(24X,* AFTER S'!F!X TEST ALONE*/) 

2020 Foonat(25X^* after TU'O PASSES */) 

C CHECK IF ARRAY CCNTA’NS SENTENCE FOR 'YHIGH A'iniOlljTY IS TO 

C MARE 

IF (NNN. EO. n) ROTO 1 ^- 
(COUNTER 

KKl^ARr.AYCNNN,!) 

KK2=ARRAY(NNN,2) 
no 11 |•KK1,KK2 
lCO|jNT=iCO'JNT+l 
no 11 *1=1/ 4 

11 VMRnd c^!jMX,J)=SEARCH(U J) 

C PRI NT AFTER m CTIONAoy LOOKUP 

1'': PRINT 2000 

IF(MNf!.EO.n) CALL OUTPUT 
no 400 1 = 1, 1 COUNT 
IF('A/0Rn(l,4).ME.OLANK) ROTO 4R1 
CALL SUFI X( I ) 

GOTO 400 

401 !F(WnRO(l,4).En.3) l‘'OR0(I,4)=nLANK 
400 CONTINUE 

C PRINT AFTEo SUFFIX TEST ALOfiE 

print 2010 

IF(NNN.EO,0)GALL OUTPUT 

C FI NO IF FIRST VfORr' { .c RE LONG! NO TO SPECIAL GROUP 
I F (WORD (1, 1 >. EO. THERE )V''^Rr ( 1, 4)=H 
lP(WORD(l,l).Ea,niR) 1fORO(l,4) = rT 

no 50:^ 1 = 1,7 

I F(VinRO(l,l).E0.TAB(I)) WnRr)(l/4) = n 
500 CONTINUE , , . . . . 

RESOLVING CERTAIN SPECIAL CONRINEO GRO'IPS LIKE 'OF’ '2* 'EJ' 
AND 'Al' 

DO SOO 1=1/ I COUNT 
IF(W0Rn(1,4>,E0,PF)Go To SIR 
!F(WORD(l,4).Ea.T'|0>GO TR 013 
|F(W0R0(l,4).Ea. EJ)WORP(l,4)=E 
!F(AONE,En.wnRn(|,4))Gn T'"' 131 
GO TO BOO 
BIO wnRn(l,4)=F 

!F(WORn(l-l,4).EO.n)Gn TO B12 
|F(VnP.D(!-l,4),Ea.TVJO)Gn TO Bll 

|F('lopD(|+l,4).EO.TWO.on.WORn(|+l,4).En.n)GP TO P12 
lF(V^ORn(i+l,43.EO.ONE2) GOT'^ 031 
GO TO BOO 

B,31 ''!ORn(|+l,4)='n’’!0 
GOTO 012 

S13 IFCWORPCI +l,4).E0^0NE2.OR.WORn(|4l,4) .EO. TWoDgp jn 



I F (m RD ( I + 1 , 4 ) * EQ. Tl'»0 3 ) TO 9,12 

00 TO non 


ail 
a 12 

131 


140 

014 


C 

1315 


Woon( 1-1^4 )»n 
H 0 nr)(l, 4 ) = n 
CALL ST0|f^(U3) 

I F ( Ef<n { MO . EO . ! NO ) Oo TO f. 1 4 

00 TO a n o 


WORO( |^4)=0NE 

JF (wonod+i, 4) . En,oNE3.oR*iioR*^{i +1, 4) . EO. nME2 , OR.n?non( I +1, 4) 

1 . on * 0 lank * on ( ! + ly 4 ) . EO . TMREE . OR . ! *000 (1 + 1, 4 ) . FO . or.!E )00 T^ 14 

I F (WORO ( I + ly 4) . EO. A. AMO . ’ 'Ono ( I y 1) . EO. THAT) Vf^RO ( I , 4)=AL^ET5 { 1) 

^ n 


GOTO u-,'j 


W0Rn(ly4)=A 

GOTO ano 

CALL STRIP(l+lyl) 

I F ( E I MO . E 0 . S ) !;.f OR 0 d , 4 ) = p /O 

CONTINUE 

ONE PASO AMOOSIITY 0E'iO\/H"' 
RE :''=1 


IF (WOROd, 4) . EO. TW0,0R.'.'0'in(i^ 4) . HO. TirEE)00 TO 1315 
! F (lYO R 0 ( 1 y 4 ) . EO , 0 f ' E 2 . 0. J /^RO ( 1 y 4 ) . RO . TKfO 3 ) T'"’ 131 5 

IF(MORn(l,4).Fn.nLAMK)0O TO 1515 


00 TO 3 

FIRST WORD BELONGS TO GROUP i^F UC^OS CL^’^SS 1 

LLJ=0 

JvJK=l 


CALL ENTRY(LLJyUJK) 

3 no 600 |=ly[ COUNT 

IF(Wa.Rndy4)*E0. BLANK. n'^.';fr'ndy4).E0.rM DOO TO o-.a 
lF(WOROdy4) .E0.0ME.^R.WCRndy4).En,TUO)0n 0 '0 
I F (T'ORO ( d 4 ) . EO , THREE .OR . ' *0^0 (1,4). EO, F^UR) 0'' T'^ 6 ' '' 

31 00 700 il»lyO 

lF(KfORRdy4).E0.ALnETS(iJyl))0^' TO 4 
700 CONTINUE 

GO TO 13 

C FUNCTIONAL UNIT OC FOR ANALYSIS 

4 CALL ENTRYdyJ) 

GO TO 600 

C OPvOUP *13' lOENTlFlEO FOP INTERPOLATION 

13 I F(0NE3^ EH. wnon (I y 4). OR^TMREEl.EO.KfOR^d, 4) )no TO IS?. 

GO TO 600 

132 lFd.EadCOUNT)GO TO 137 

IF(W0Rnd+l,4).En.. RLAMK)GO TO 13« 

IF(W0Rnd+ly4).Ea.ONE)GO TO 135 

I F CYORP (I +ly 4) . EO. 0ME3 . OP . VICRO (I +1, 4 ) , EO, TUREEl )v?'': TO 6^0 
l^!RITEC99ylr:03)WORPd+ly4) 

REA0(90yiaC4)!Plly 1^22 

!F(I Pll»EO.THREE*nn. I P22.E0..THREE)GO TO 130 
lF(!Pll.Ed.ONE.OR.IP22.En.nPE)GO 130 
4/OROd y 4)=0NE 


137 



5b 


135 

K 1 1 2 * I 

IF(I . EO. DGO TO 6 00 



1 F (V.'ORDC !, 4) , Ea.nNE3.OR.’;.|0R 

.0 ( 1 , 4 ) . EO, . THR E E 1 ) UORn ( ! , 4 ) = THR E E 

133 

I F (WOR R ( Kl 1 2 - 1, 4 ) . EO . 0 0 E 3 . 0 
GO TO BOO 

P; . ' lORD ( K 1 1 2 - 1, 4 ) , EQ, THR E El ) GO TO 

138 

’■lORDC !+l,4)=THREEl 

GO TO 600 


139 

UORRC !+l, 4)=ONE 

GO TO 135 


134 

K112=K112-1 

’'ORP(K112,4)=THREF 

GO TO 135 


136 

'.’OR 0(1, 4) “ORE 3 


600 

CONTINUE 



c PASS TV?n nvE'i or r'ni 

!F(REP. EO*2)na TO 14 
C FILL HLAriK ENTRIES WfT!! RnnUP 

ro SIP 1 = 1 , icoijHT 

lF(W0Rn(!,4).f!E.nLAEm)G0 TO SIS 
'■/0Rn(l,4)=0r'E3 
510 C^>^.!TINUE 
REP=2 
■GO TO 3 

C PASS TV’O OVER MAKE SOME ROMRLE GROUPS I MTO SI MOLE 
14 no 900 1=1, I COUNT 
JJK=1 

! F (V(|ORD ( ! , 4 ) . EQ. THR E E ) CA L L ENTRY ( 1 -1 , JU K) 

I F('-fORn( 1 , 4) . EO. Or'E2;OR.Mnr<0{ I , 4) . EO. T'-fn3)V'^R^CI, 4)=T!V^ 
!F(UrRRCl,4).EO,.THREE4)V*ORn(l,4) = F^UR 
900 CONTINUE 
C PRINT FINAL GRAPHER 
PRINT 2020 

IF(NMN.EO. OCALL OUTPUT 

RETURN 

END 

$inFTC ENTRY 

C FUNCTIONAL GROUP ANALYSIS O^NE WR^E 

C IN THIS ROUTINE 

SUBROUTINE EMTRY{ I, MJM) 

COMMON/NWORO/I CnUNT,HORn(51,5)/L'^MT/ ! PUT, TCNT/NEOf NG/FNOI NG 
INTEGER F 

INTEGER WORO, ENDING, TCMTC2'~’C, 2), nLANK,ONE,TUO,THREE,En 

INTEGER TAR (4), n 

INTEGER D,F0UR,THREE4 

INTEGER HSK2,A,nNEA 

INTEGER 0ME3 

INTEGER ANnT,C,HSK3 

INTEGER G 

INTEGER S,ARE,\!ERE, THESE, THOSE, THE, UnY,0NE?. 

DATA F/IHF/ 





HATA TAn,n/3HHAn, 3M^5T/£!.HHAVE/4HKHSP^ IH^/ 

"^ATA ^r'f!,T'.’:>THlEE/1$Kl, 1 PG/lHl, 1H2/ lH3,nf)A77A059BAA%5mf>G/ 

^ATA 'iA\4/'^:n'^Ar'r,0A0Rn5C/ 

AATA F.rvnLAF;K/2HE^',lH / 

'"ATA P,Fr:!JR,THAEE4/lH^,l!:4,2H34/ 

’^ATA ■'’5K2/A^^r'EA/n77.'^''P0AAA0En, 1HA,2H1A/ 

DATA nr'E3/2H13/ 

DATA APAT, C/ISKS/SHNOT, 1 HC, 2HA1/ 

''ATA G/IHG/ 

n ^ TA F , AP E / J E n E , TH FS R ^ TK'A ,S E , TH E / 1 HS , 3 H AR E / 4 EP E/ 5 HTH E S E/ 5 HTHP R E 
1 ,3HTHE/^JOY,nfiE2/lH.J^2K12/ 
irno format (AR) 

10^1 FORMAT ('^AD 

C SWITCH TO THE ARPRnpn|/.TE FUHCTinHAL GROUP 

GO TOdOl, ?01, 3^1,401,501, 7^1, f.Ol, P01),MJM 

C FUnCTIOfiAL GROUP V ANALYSIS 
ini K7=l 
11 K1=K1+1 

I F(Wnno([(l,4) , EO.PLAf'K)G'^ TO 12 
IF(W0R0(K1,4). En.'PHH)GO TC 14 
IF(W0Rn(Kl,4).E0,.T''?R)G^ T^ 15 
IF(WORP(Kl,4).En.Tf:PEE)GO TO 12 
C FIHO IF LOCAL POIHTE'^ EXCER'^S IMPUT LEf'GTH 
IF(K1.E0. ! C0UHT)C'0 TO 17 
C IS IT A SIHGLE GRA'O^ER 5’'R"^ 

K2= I NTGER (AH^ (WORO (Kl, 4) ,MSK1) ) 

!F(K2.EO.HSK4>GO TO 13 
C SERERATE THE TWO GRA'II'^ER ’'ARTS 
VniTE(09,10^" >W0RR(K.1,4) 

REAn(R9,lR01):<3,K.4 

|F(WnROdl,4).EO.o:'JE2.AH'''.WORR(K.l-i-l,4).F.n.o-^'E2)Go jo 
IF(K3.Ea.THREE.AK'PJ<4.E0.nNE)Gri T^^ 12 
!F(K3.E0.0NE.ANn.*^4.FO.THREE)G0 TO 12 
fF(K3. E0.TV!O.0R.R4. En.TW'^lPr TO 20 
103 IF(K3.EO.THREE.OR.K4.RO.TO'REE)GO TO 12 
I F(K3.En.Or'R.nR.!<4.En,.OME)P.O TO 10 
GO TO 13 

C TWO CONSECUTIVE ’12' P-ROHOS OCCSIR 
1080 CALL STRIP(Kl-5-l,l) 

•IF^EHOIMG.NE.SIGP TO 20 
CALL STRir(Kl,3) 

IFCEflOIHG. EO. !NG)GO TO 20 
CALL STR!P(Ki,2) 

IF(Ef'Oir'G.EO.EO)GO TO 20 

C SINCE NON SATISFIEO SET Ci’RREf'T ViOPO GROUP '1' 

C AHO THE NEXT WORP GROUP '2' AUn PUIT 
v*orn(Ki,4)=nHE 
M0RO(Kl+l,4)=Tin 
GO TO 14 

C SET GRAMMF.R TO ’3’ 





c 

in 

c 

20 


c 

11^4 


105 


V''>R0(K1, 4)»TH0EE 
on jn U 

SET OnA'T'lEO TO ’1' OOn nU(T 
^.’^■Rn(Kl,'4)=nr«F: 
on TO 14 

OOTUP ^2' HAS noc'.'PEn TEST FOR EHOIMO MHO' OR 'En' nUALIFlERS 
CALL vSTRI ?([<!, 3) 

1 F (EHOIHn»En. 1 PO)r!n TO 1*? 

CALL STRI PCia,’) 

1 F(HHn[HO.En.En)on TO 7.^2 
CALL STRi O(Kl^l) 

IF(Er'nifip.En.s)cn to i^-^4 * 

f^,n jn 1i^3 

IF EfAnfMO IS 'S' FINP !F IT |$ CLASS OP '2' 
IF(VnP(Kl+ly4).Ea.nLAHK?On T"* 105 

I F (L'OP n ( K1 + 1 , 4 ) . EO. . TWO . 0 . WO RP ( K1 + 1 , 4 ) . EO . 0 . 0 R , WO Ro (Kl+l/4).Ea.F 
l,nRJ'0.Rn(Kl + l,4).EQiJOY)0O T'P 107 
! F ( won n ( Kl , i , 4 ) . go . A . OR . WOP 0 C Rl-1, 4 ) . EO . THf". EE . pR . WORP ( Kl-1, 4 ) 
l.Ea.TWP)nO TO 107 

00 TO ion 

1 F CWORP ( 1 , 1 ) . EO . THE . op . won^ ( M ) . EO. THOSE. OR . ’ 'ORO ( 1 , 1 ) , EQ. THESE 
1)0'-^ TO ion 

C SET CRAMMER TO '2' 

108 '•'0RP(K1,4)=»TW0 
GO TO 13 

C SET CURRENT WOPP CLASS TO M' ANO NEXT WORO T'^ ' 2 ' 
l-'S 170RP(K1+1,4)=TWO 
107 .WrR0(Kl/4)=0HF. 

pO TO 1 4 

C SET C11RRE^»T WORO jn CLASS '2' '’EL-tMOS TO ATTP!0'!TE LIST 
102 WnRO(Kl,4)=T‘'iO 
GO TO 12 

IF LOCAL POINTE'^ MORE THAN THPEF '^R EXCEEPS ! C'^UNT 
MAKE UP P'^OPER SETTINGS AN^' ^H!T 
IF(K1.GT.(!+3))G0 TO 13 
IFCKl.EO. I COUNT)G^ TO 17 
RETURN TO START POINT 
GO TO 11 

MAKE PREV CLASvS '1' STORE IfOEX AN"! PUIT 
K3=r 

IF(l.Ea.0)K3=l 

IF(WnRn(Kl-l,4).En.Tl-.i0)0'v TO 100 
K4=K1-1 
wnRnCKi-i/4)«or'E 

GO TO IS 

C IF CLASS '2' FIND IF IT IS ENP! NO Vv'ITH ' I NO' 

109 K1=K1-1 

CALL STR! P(K1,3) 

IFCENDING.EO. !N0)K1=K1+1 
GO TO 110 


C 

c 

12 


C 

13 


110 





C STf5PE F'lHTERS 

14 K3==l 
IF(I.F.0.C)K3*1 
K4=i<l 

fiH IP 

0 ?F p'GnMiHG is ’2’ n'JT Me? hg^ice''. vegh null 

15 CALL ST^J r>(K1^ 3) 
iF(Er-fr»irG.Hn. ir’FOGo ir u 
CALL STGP(fAl^2) 

!F(Er-PI['-.P'^.Ef^)r:- TO 12 
G'l T''^ 13 

e IF S'^ME ir’ GET!.'.'EEN ATE LAWK '■■AKE THEM CLASS ’3' 

IS l^n j?.k3^K4 

IFC:','A'in(vJ,4),En.nL;.MK)!AfA?.n(d^4)5?TH[lEE 
ICP CrWTlWUE 

TETiin.f' 

17 WGf^r.(Kl,4)«nWE 

QA TA 14 

C Cr^AUr 'P’ ANALYSIS Seg’HS he^e 

2ai Ki»i 

21 K1»K1+1 

C IF IT IS G'lOijP 's* fin JO fiEXT 

C IF IT IS CLASS '2' nuiT 

IFmAn'^CK1^4).EO.-LAWK)Gn TO 2 2 

IF(fefnn^rKl,4),H0,s)0: to 21 
I F ('-./O P 0 ( K.1 ^ 4 ) . , T' n ) 0 ETUO W 

C IS IT SINGLE GSP'UPA-P, HHL G1AHME0. CLASS 
KZ^ I WTGEO (Ain ('•’'"'"0 CKl, 4) , MSKl ) ) 

IF(K2.EO,MSK4)G-- TO 24 
C FI NO IF EfPING |S ’INC' np. >£0* 

CALL ST0lP(l<l/3) 

IFCEMOr'G.EO. INOGO T'^ 22 
CALL STPIPCK1,2) 

IF(EN0!NG.Ea,E0)GO T"' 22 
e POES WOPO f^ELONG TO SPECIAL GOOUP 
on 200 J=1^4 

IF(W0PP<Kl,4),En.TA.rM))G'^ T''^ 23 
20C CONTINUE 

C ; SEPEPATE THE TO GRO;i'"ATl CAL UNITS 
. v;r>iTE(00/i"'nn)i,)nRnCKi/4) 

REAP (00/ 10-1 )K3,K4 

C IS ANY nELONOIMG TO GPO?.!^ CLASS '2’ 
IF(!<3.Ea.n.AHn.K4.E'^,F)G^ TO 25 
IF{K3. EO,T1'|0 4 0R/K4.EO,TV?0) GO TO 22 
RETURN 

24 VinpO(Kl-l/4)=T’An 

RETURN 

25 iF(WnR0CKl + l/4),F.n.RLANK.)G^ TO 25 
\nR0(Kl/4)«F 

GO TO 24 



22 




'!0nD(|<1^4)=T!'n 
*1ETURf' 

23 i!nRD(!<1^4) = n 

GO TO 21 

c nnoup ’c’ amalYvSIs beg i or at this point 

301 Kl=l 

I F(V/0Rn(Kl + l,4).En. PLANfOGO TO 33 

C SINGLE '•'fORn GROUP CHECK IS 'B’ OR '2' ENTER '2’ OR ^3' RESPLY 

K2»l NTGER(ANO(WORD(K,1+1^4)/.1SK11) 

IF(K2,En/1SK4)G0 TO 33 
HRITECR0,1^00)!\»nRn(Xl+l,4) 

READ09,inai)f<3^K4 

C IF IT IS '3’ OR^ 2' SET NEXT GROUP ACCOROINOLY 
IF(K3,EO.THREF:,OR*K4.En.THREE)GO TO 33 
IF(K3.EO,'n'fO,OR.K4. E0.TKin)Gn TO 33 
RETURN 

33 IF(W0n0(Kl-a,4).Ea.0)G0 TO 31 

lFa7nR0(Kl-l,4).Fo.r!0)GO TO 30 
RETURN 

31 V7nRD(Kl+l,4)»T*'n 
RETURN 

32 170RD(K1+1,4)^THREE 
RETUPvN 

C GROUP ANALYSIS 

401 Kl»l-1 

41 K1®K1+1 

C NEXT V70RD ALSO GROiJP ’o’ on TO |NCRE^''FMT 

C NEXT THREE OR FOUR GO tp, o(j|t 
IF(W0Rn(Kl,4).En,n)G0 TO 41 
IF(W0RD(Kl+l,4).E0.nLANK)GO TO 44 

I F (WORD ( Kl+1, 4 ) . EO, THREE . OR . 'NORn ( Kl+1, 4 ) . Eo. FOUR ) RETURU 

C GET THE TViO G.RA'INATI CAL ENTRIES 
V/RITE(00^1GCa)liORn(Kl+l,4) 

REAO(0n,10Ol)K3/(4 
IF(K3.EO,n.OR.K4.EO,o)GO TO 42 
IF(K3.EC.THREE.ANn,K4.r:O.FoUR)RETURF 
I F(K4.Eo. THREE. ANR.K3.EO. FOUR )RETURN 

C CORRESPONDING TO '3* AA''n ’4’ O’^AKE ENTRIES 
IF(K3.E0.THREE.nR.K4.E0.THREE)GC TO 43 
IF(K3.Ea.FO!JR.OR,K4,FO.FOUR)nO TO 444 
RETURN 

42 »70RDCKl+l>4)=n 
RETURN 

444 WnRD(Kl+l,4>=F0UR 

RETURN 

43 WnRO(Kl+l,4)“THREE 
RETURN 

44 VI0Rn(Kl+l,4)*»THREE4 
RETURU 

C CONJUNCTION CLASS GROUP ’E’ analysis 



C STIHE NEXT AMf’: ''■lEV If .''HP'A 

5 ni K1=I 

51 K2«V?i^P'.^(Kl-l,4) 

K3=''fnn(Kl+i,4) 

C Flfn INOIVIPIJAL f^^UniE PiRHUPS 

vmiTE(on/iAnn)K2 
aEA''^(pa,inni)K5,K5 
V!PlTECa9,10ni)K3 
PEA'^fAQ IPi^DK? XJ’ 

C GRA‘!MER OF NEXT AfO POEV' SAMc OUIT 
!F(K2.Ea. ;O)0.ETUrJ-’ 

C IF THE PPEV 10 ilNinUE TO 52 
K4= I fTOERCAfiO (MSX2^ !(2) ' 

IF(!<4.En.!<2)n'^ TO 52 
C IF f’EXT 10 Ufl^UE OOA‘'MF;: 0-''. TO 53 
K4=! fSTQE0(AriO('MSf<2^ K3)) 

IF(K4,Ea, K3)G'^ TP 53 
PETHPf 

C IF POEV 10 CLASS ’I'P'*' TO 54 
C MATCH PART PF HEXT WITH ^OEV EfTEO 

C IF PLAHK MAKE HEXT SAME AS ^'’'EV 

52 IF(K2.EO.,OME)CO TP 54 

1 F CK2 . EO . K7 . P; . K 2 , EQ , K8 ) I 'ppp ( KI+ 1, 4 ) = K2 
■ I F(K3. EP. nLAMK)V.'pPO CKl+1^ i^) = K2 
RETURN 

C IF NEXT M,' OP '1' THEN PPEV IS '1' 

C MATCH PREV SUBSET WITH NEXT ENTEP NEXT 
C IF PPEV ntANK ENTER PPEV SAME ASW-IEXT 

53 I F(l<3.Ea.r^NE.on..'<3. EO.A)RO TO 55 

I F ( K 3 , EO . K 5 . 0 P . K 3 . P 0 . K P ) '^P P ( K 1 - 1 /4 ) = K 3 
IF(K2.F.O.PLANK)WOP,P(Kl-l/4)*K3 
P.ETUPN . 

G SETTING OF GPOUP ’1' 

54 !F{K3,En.'^NR2)PO TO 58 

59 IF(K7.En.P''^)no TP 5* 

IF(K8..EP.TW0)GP TP 5 7 

I F {K3. EO. P LANiOWPP'^ (Kl+l, 4)=ONF.3 

PvETURN 

58 • CALL STPI PCKl+1/3) 

IFCENH! NO.EO, i TO 50 

W0P’"(Kl+l,4)=Pf!E 

PETUPN 

55 WnRnCKl+l,4)=KS 
RETURN 

57 W0Rn(Kl+i^4)=K7 

PvETURN 

55 WORn(Kl--l,4)=ONE 

RETURN 

C GROUP F OR PREPOSITION ANIYSIP 
501 Kl=l 



Si 


c 

c 

c 

fi2 

B1 

C 

yni 


81 


n 1 ) 5 / ^ ^ I A T r c T ^ F T U ^ 

A3’ nn ’lA^ m'^U? A*- SET /•.■•-■ 


11 

12 
73 
C 

sni 


c 

QOl 


lcCV!^nn{Kl+l,4).F.^»^LAf’KJf’0 

FETCH THE P'^UnLE GAD’^PS 
'■fn ! TE (OC, inPOlVIOAP ( Kl+l/ 4) 
nE/''^CnC/lP'Cl)K3,K4 

Vf IT IS ’Ai' on ’c, 

iF(K5.Er'.^rE.AMn K4^f,;i..;;)o-;> ai 

IF(K3.E'’.A.f.N^.KU.Ea.Af t);;^ p <• 

IF ( A. ^'^*K. 3 .GP.t '< 4 . F-G. A)G ' i ' 2 

GOTO ANALYSIS GF GRGUp ;, 

or. jr 11 

V!G0G(K1+1/4)=A 

GETHOH 

VIOIO <Kl + l/ 4)='^HE 

PF-T4'0T' ,n.-3Tirni GF ’HO’) 

Qooijp AHiALYSIS f-G ? G( P-\ . > 1 C 'Li . • 

'mi TE(S0/ j ■'''‘•n)WO00(!<l'’'‘l/4) 

HEAocno' l-a)K2,K3 _ 

! ? (S:i; 45 ; ^ 0 

I F (VJOO:Or<l+lA 4) . YF. AN‘^1 )0 ■■: ■ 1- 

VinOO(Kl+l/45 = C 

lF(WOOn<!<l+l/4).HE, .1 

IF(K2.Ea.A.3r;.:C3.FO.A)l''C-^(..l*l-4)-« 

'i‘FlM.'Ef'..'3”F..'''”.. K3 . E'’..^i!E)''.'f'A'' (W*l/ 4)“'''' - 
RETURH 

W05^'O(Kl+l/4)®0WE . 

^lETlIW 'TMF'F' n-'iF.^JINHU'G THE SEHTEHFE 

G'^GUP H ANALYSIvS tw. > li.r. - 

IFU .Ea.DC-T Tn 81 , 

f c ( I “"1/ 4 ) • E^>* ^ ‘ - 1 

lF(fep,0(l-l,4).E3.FL'NK);f''.n(l-l,4)-T , 

’•'? I TE(C3, 10Grs)VJO!;O( I -1/ 4) 

REAnbO/lGGl5i<2/»<3 _ . . 

lF(K2.En..TWn.OO..K3.EOiTVn)W0 

return Tin'-'^TUPG 

I F ('+37,n *1, 4) . =%TU; y... ,.,, 

lF(WORn(l+l,4).Er.;LJvr.L- -VI -i/ 
iriTEfC^^lGOG)'4'ORn(l+l,4) 

K 3 . EF-woHn^oc I n, 4)=n'n 

?,S'AA, AKLV3IS (THESE ATE ^HESTHH K-T7S IH THE lEF.-' 

1F(I.HE.1)RETURM_ (| +1,4). ET. ■n'>’)'’ETU",H 

I F (VIOTn (1*1,4) . R ..ilv inhnn +1 , t).TMn 

!F(V|ORO(I+1/4).EO.SLANK-e 
V^R lTECOS/lTOOVJOP.Gd +1 a4> 

PEAn(9C,10Al)K2,K3 ™ v'G^g{1+''/4)»T40 

IF(K2.En.TV,'O.OP.I<3.En.T''f.Ov.O.. U 

RETURN 
END 






